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@ Apparatus and process for reagent fluid dispensing and printing. 



@ A system for printing and dispensing chemical reagents in precisely controlled volumes onto a medium at a 

precisely controlled location. A jetting tube, comprising an orifice at one end and a fluid receiving aperture at the 

other end. is concentrically mounted within a cyfindrical piezo-electric transducer. The fluid receiving aperture is 

connected to a reservoir containing a selected reagent by means of a fitter. The reservoir is pressunzed by a 

regulated atr supply. An electrical signal of short duration is applied to the trarisducer. The pulse causes the 

-^transducer and the volume defined by the jetting tube to expand, thereby drawing in a small quantity of reagent 

3 fluid- cessation of the pulse causes the transducer and the volume of the jetting tut>e to de-expand, thereby 

causing at least a substantially uniformly sized droplet of reagent fluid to be propelled through the orifice. The 

^ droplet may t>e directed to impact a printin g medium or collected in a dispen srrTg recepticle. 
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BACKGROUND OF THE INVENTION 

The present invention relates to an apparatus and process for dispensing and printing reagent fluids, 
wherein a transducer is used to propel small quantities of the fluid towards a positioned target. 

Diaonostic assays often require systems for metering, dispensing and printing reagent fluids, m the 
case of metering and dispensing, such systems comprise both manual and automatic means For P*in)os^ 
of practicarity. the present background discussion will focus on the methods of metenng and dispensing 100 

micro-Trter volumes or less. . ^ 

The manual systems of metering and dispensing include the glass capillary pipet; the micn>.pipet the 
precision syringe; and weighing instruments. The glass capillary pipet is formed from a preasion bore glass 
capillary tube. The pipet typically comprises a fire blown bulb and a tubular portion fire drawn to a fine 
poinL Fluid is precisely metered by aspirating Dquid through the tube into the bulb to a predetermined level 
indicated by an etched mark. The fluid may then be dispensed by blowing air through the tube. 

The micro-pipet typically comprises a cylinder and a spring loaded piston. The travel of the piston is 
precisely determined by a threaded stop. The distance the piston traveU within the cyander and the 
diameter of the cylinder define a precise volume. The fluid is aspirated into and dispensed from the micro- 
pipet in precise quantities by movement of the piston within the cylinder. 

The precision syringe generally comprises a precisely manufactured plunger and cylinder with ac- 
curately positioned metering marics. The fluid is introduced into and dispensed from the syringe by 
movement of the plunger between the marics. , „ ^ ^ 

Weighing techniques for dispensing fluids often »mp!y involve weighing a quantity of fluid. The density 
of the fluid may then be used to determine the fluid volume. 

Exemplary automatic metering and dispensing systems include the precision synnge pump; the 
peristaltic pump; and the high performance liquid chromatography (HPLC) metering valve. The precision 
syringe pump generally comprises a precision ground piston located within a preasion bore cylinder. The 
piston is moved within the cylinder in precise increments by a stepping motor. 

The peristaltic pump comprises an elastomeric tube which is sequentially pinched by a senes of rollers. 
Often the tube is placed inside a semi-drcuiar channel and the rollers mounted on the outer edge of a disc 
driven by a stepping motor. The movement of the rollers against the tubing produces peristaltic movement 

of the fluid. ^. , . -rw « ^ 

The HPLC metenng valve comprises a defined length of precision inner diameter tubing. The fluid is 

introduced into the define volume of the tubing with the valve in a first position and then dispensed from the 
tubing when the valve is placed m a second position. 

All of the above metering and dispensing systems have the disadvantage that the volumes dispensed 
are relatively large. Furthermore, these systems are also relatively slow, inefficient and comprise precision 
fitted components which are particularly susceptible to wear. 

The printing of reagent fluids is frequently required in the manufacture of chemical assay test stnps. 
Selected reagents are printed in a desired configuration on strips of filter paper. The stnps may then be 
used as a disposable diagnostic tool to determine the presence or absence of a vanet>' of chemical 

components. . ^ ^ ^ 

•Generally, to perform a chemical assay with a test stnp. the strip is exposed to a fluid or a senes of 
fluids to be tested, such as blood, serum or unne. In some instances, the strip is nnsed and processed with 
additional reagents pnor to being interpreted. The precise interpretation depends on the type of chemical 
reactions involved, but it may be as . simple as visually inspecting the test strip for a particular color change. 

The manufacture of test strips generally involves either a manufacturing process or a blotting process. 
The blotting process is the simplest manufacturing method and permits most reagents to be applied without 
modification. A disadvantage of this process is that it is difficult to blot the fluids onto the test stnp with 

precision. .... ^ m 

so The printing process will often involve any of three well known methods: silk screening: gravure: and 
transfer printing. The silk screening of reagents generally involves produang a screen by photograohic 
methods in the desired configuration for each reagent to be printed. The screen is exposed under fight to a 
preselected pattern and ti^en developed. The areas of the screen which are not exposed to Rght, when 
devel oped, become porous. However, the areas of the screen which have been exposed to light remain 
relatively nonporous. The screen is then secured in a frame and the test strip placed betow. The desired 
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reagent fluid. tfpeoaliV prepared to have a high viicjsrty. H ^ead ove^- the top side ol the screen. The 
reagent passes through the porous areas of the screen and onto the test strip. The test strip is then 
subjected to a drying process, specific to each roageTrt. Once the test strip is dry. H may be printed again 
using a different screen, pattern and reagent 
5 The gravure method of printing reagents comprises coating a metal surface with a Pght sensitive 
polymer. The polymer is exposed to fight in the desired predetermined pattern. When developed, the 
polymer creates hydrophilic and hydrophobic regions. The reagent is spedarty prepared such that when 
applied to the metal It will adhere only to the hydrophiDc regions. After the specially prepared reagent is 
applied, the test strip is pressed against the metal and the reagent is transferred from the metal to the test 

TO Strip. ■ ^ 

The transfer printing method comprises transferring the reagents from a die to the test stnp cn the 

desired pattern. The die Is made with the appropriate pattern on its surface and then coated with the 
desired, specially prepared reagent A rubber stamp mechanism is pressed against the die to transfer the 
reagent in the desired patlem from the die to the mbbor stamp. The njbber stamp is then pressed against 
75 the test strip to transfer the reagent, in the same patlem. to the test strip. 

Each of the above-mentioned reagent printing techniques has significant disadvantages. The most 
common disadvantage is the requirement that the reagents must be specially prepared. Additionally. H a 
variety of reagents are to be printed onto a single test strip, the strip must be carefully aligned prior to each 
printing. This alignment procedure increases the cost and decreases the throughput of ttie printing pnx:ess. 
Moreover, a special die or screen must be produced for each pattern to be printed. A further disadvantage 
arises in that the above printing methods are unable to place reproduceabis minute quantities of reagent on 
the test strip. 

It is an object of the present invention to provide a printing and dispensing method and apparatus which 
avoids these disadvantages. 
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SUMMARY OF THE PRESENT INVErmON 

The present invention is directed to a reagent dispensing and printing apparatus and method, wherein 
90 the apparatus comprises a transducer operative to eject a substantially uniform quantity of reagent in a 
precise predetermined direction. 

According to one preferred embodiment of the present invention used in dispensing reagent fluids, a 
' jetting tut>e is concentrically located with a piezoelectric transducer. The jetting tut>e comprises an orifice at 
one end and a reagent receiving aperture at the other end. The receiving end of the jetting tube is 
35 connected to a filter which is in turn connected to a reservoir containing a selected reagent. A jetting control 
unit supplies an electrical pulse of short duration to the transducer in response to a command issued by a 
computer. The electrical pulse causes the volume defined by the jetting tube to expand by an amount 
sufficient to intake a small quantity of reagent fluid from the reservoir. At tt^e end of the pulse duration, the 
transducer de-expands propelling a small quantity of the reagent fluid through the orifice and into a fluid 
4o recepticle. If desired, additional droplets may be deposited in the recepticle or the recepticle aligned with an 
additional jetting tube for receiving an additional reagent fluid. 

An additional prefen"ed embodiment of the present invention may be used for printing reagent fluids 
onto a print medium. In this embodiment the jetting tul>e Is aligned with the printing medium such that the 
propelled droplet impacts a precise position on the medium. The jetting tube or print medium may then be 
45 repositioned and another droplet expelled from the jetting tube. The process may be repeated until a 
desired configuration of the reagent fluid is printed on the medium. 

One advantage of the present invention is that precise minute quantities of reagent fluid may l>e 
dispensed or printed in a reproducible manner. Additionally, the method and apparatus may be used to 
emit droplets of fluids having a wide range of reagent fluid viscosities and surface tensions. The reagents 
so do not in general have to be specially adapted for use with the present'invention. 

The invention itself, together with further objects and attendant advantages, will best be understood by 
reference to the following detailed description, taken in conjunction with the accompanying drawings. 
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BRIEF DESCRIPTION OF THE^LRANMNoS 



-1 



FIGURE 1 Is a schematic represeotation of a first prBferred embodiment of the present invention 
showing the use of multiple jettinQ heads to meter and dispense reagent fluid. 
6 FIGURE 2a Is B perspective view of a first preferred embodiment of the jetting head of the present 

Invention. 

RGURE 2b Is a cut-away perspective view of the prefened embodiment of Fig. 2a taken along lines 

2b-2b with the contact ptT\s removed- 

RGURE 2c is a sectional representalion of the preferred embodiment of Fig. 2a taken along lines 2c- 

70 2C- 

FIGURE 2d is a sectional representation of the pre;erred emt>odimenl of Fig. 2c taken along lines 2d- 

2d. ^ r ^ 

FIGURE 2e is a sectionaJ representation of the jetting tut>e and transducer of the preferred 

embodiment of Fig. 2b taken along lines 2e-2e. 
ts RGURE 3 is a schematic representation of a second preferred emtxxJiment operatif>g in the drop on 

demand mode as a reagent printing system. 

RGURE 4 is a schematic representation of a third preferred embodiment operating in the continuous 

mode as a reagent printing system. 

RGURE 5a Is a schematic representation of a portion of the jetting head control unit showng the 

20 LED strobe drcu'rt. 

RGURE 5b is a schematic representation of a portion of the jetting head control urut showing the 

high vottage power supply circuit 

RGURE 5c is a schematic representation of a portion of the jetting head control unit showing the 

print control drcurt 

25 RGURE 5d is a schematic representation of a portion of the jetting head control unit showing a 

portion of the print pulse generator. 

RGURE 5e is a schematic representation of a portion of the jetting head control unit showing an 

additional portion of the pulse generator. ^ 

RGURE 6a is a perspective view of a second preferred embodiment of the jetting head of the 

30 present invention. 

FIGURE 6b is an exploded view of the preferred embodiment of Fig. 6a. 

FIGURE 7 is a sectional representation of a third preferred embodiment of the jetting head of the 
present invention, 

FIGURE 8 is a sectional view of a symmetrical portion of a fourth preferred embodiment of the jetting 

35 head of tine present invendon. 

FIGURE 9 is a graph of the drop mass of the emitted droplets as a function of emission frequency fc 

several fluid viscosities. 

FIGURE 10 is a graph of the velocity of the emitted droplets as a fur>ction of frequency for several 
fluid viscosities. 

40 RGURE 11 is a graph of the total weight of fluid emitted as a function of the number of emitted 

droplets for a given fluid. 
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Turning now to the drawings. Fig. 1 shows a schematic representation of a first preferred cmoooiment 
of a reagent dispensing system generally represented as reference numeral 30, The dispensing system 30 
comprises a plurality of reagent fluid reservoirs 200. a plurality of filters 300. a plurality of reagent letnng 
heads 400. a plurality of jetting head control units 500. an interface unit 600. a computer 700, transportation 
50 unit 902. a plurality of fluid mixing cells 904 and a detection station 906. 

The reservoir 200 holds a seieaed Quantity of reagent fluid for dispensing. The reservoir 200 is 
maintained at atmospheric pressure by suitaole means such as an atmospheric vent The reagent fluid is 
transferred from the reservoir 200 through the filter 300 to the reagent jetting head 400. The filter 300 is 
placed t>etween the reservoir 200 and the jetting head 400 to ensure that any particular foreign matter in the 
55 reagent fluid is trapped before entenng the jetting nead 400. 

The plurality of jetting heads 400 and Uie detection station 906 define a processing path. Each jetting 
head 400. which is described in detail below, ejeas uniformly sized droplets 2 of reagent fluid. Tne dropieu 
2 are propelled, with conti-olled velocity and direction, towards a selecting mixing cell 904 positioned along 
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the processing path by the trsTisportatioc; unft 902. TV* mYSAflQ cells 90-^. are ccrrprised of norweactive 
materia) and function as rninute holding tanks for the dispensed reagent fluid. 

The plurality of jotting heads 400. shown in Fig. 1, are positioned sequentially along the processing 
path. AJtemately, some or all of the plurafity of jotting heads 400 may be positioned with respect to the 
transportation unit 902 such thai the heads 400 direct the droplets 2 into a selected mixing cell 902 
simuttar)eously. 

The jetting heads 400 and the transportation unH 902 are controlled by the computer 700. The 
computer 700 issues commands to an interface unit 600 wtiich Is electrically conneaed to the transportation 
unit 902 and to the jetting head control unit 500. The interface unit 600 is of conventional design and is 
used to control the trarisfer of information between the computer 700 and the jetting control unit 500. The 
interface unit 600 Is also used to control the transfer ol information t>etween the computer 700 and the 
trarisportation unit 902. 

A first embodiment of the reagent jetting head is shown in Figs. 2a - 2e and generally represented by 
numeral 400. The jetting head 400 comprises a two piece symmetrical housing 402, 404. The housir>g 402. 
404. when assembled, is adapted to form an orifice aperture 406. an air vent and reagent supply channel 
410 and a transducer chamber 403. shown in Fig. 4b. Four screws 408. adapted to respective housing 
screw apertures 416. hold the housing 402, 404 in an assembled configuration. 

The jetting head 400 funher comprises a jetting tube 432, a piezo-electric transducer 434 and a reagent 
fluid supply tut>e 430. The jetting tut>e 432 defines a tapered orifice 433 at one end btkJ a fluid receiving 
aperture 431 at the other end for expellir>g and receivir^ fluid, respectively. The piezo-electric transducer 
434 is cylindrically shaped and secured concentrically about the mid-region of the jetting tul» 432 with 

epoxy or other suitable mearvs. 

The piezo-electric transducer 434, shown in Rg. 2e. defines a first anti second end and comprises a 
section of cylindrically shaped piezeo-electric material 435. An inner nickel electrode 437 covers the inner 
surface of the cylinder 435. The electrode 437 wraps arourKl the first end of the cylinder 435 a sufficient 
distance to enable electrical connection external to the cylinder 435. 

A second nickel electrode 436 covers the majority of the outer surface of the cylinder 435. The second 
electrode is electrically isolated trom the first electrode 437 by an air gap at the face of the second end of 
the cylinder 435 and by an air gap on the outer surface of the cylinder 435 near the first end. When an 
electrical pulse Is applied to the first and second electrodes 437. 436 a voltage potential is developed 
radially across the transducer material 435. The voltage potential causes the radial dimerisions of the 
transducer 435 to change, which causes the volume defiried by the trarrsducer 434 to also chai^ge. 

The jetting tube 432 is positiorted in the transducer chamber 403 such that the receiving end 431 
extends beyond the rearward end of the transducer 434. The receiving end 431 of the jettir>g tutje 432 is 
inserted into one end of a reagent supply tube 430. The supply tube 430 is seafingly held to the jetting tut>e 
432 by concentric teeth 412 formed by the housing sections 402. 404. The teeth 412 not only seal the 
supply tube 430 to the jetting tul>e 432. but. also, seal the supply tube 430 to the housing 402. 404. 

The second end of the supply type 430 passes through the channel 410 and into a reagent reservoir 
200. The reservoir 200 contains the reagent fluid to be dispensed by the jetting head 400. As the reagent 
fluid is dispensed, air is supplied to the reservoir 200 through the channel 410 to prevent the creation of a 
vacuum in the reservoir 200. The reservoir 200 is releasably attached to the housing 402, 404 and held in 
place by frictional forces. A reservoir cap 202 is flenbly attached to the reservoir 200 and adapted such that 
the cap 202 may be used to secure the opening in the resen/oir 200 when the reservoir 200 ts disengaged 
from the housing 402. 404. 

The position of the jetting tube 432 defines the horizorxtal plane of the jetting head 400. The jetting tube 
432 and the transducer 434 are held in a pre-defined vertical relatior\ship with respect to the housing 402. 
404 by means of two upper vertical abgnroent pir« 418 and two tower vertical alignment pins 418. The two 
upper vertical alignment pins 418 extend horizontally trom the housing section 402 into the transducer 
chamtwr 403. Similarty. the two tower vertical alignment pins 418 extend horizontally from the housing 
section 404 into the transducer chamt>er 403. Each vertical alignment pin 418 is formed integrally with the 
respective housing sections 402. 404. 

The jetting tut>e 432 and the transducer 434 are held in a predefined horizontal relatioriship with respect 
to the housing 402. 404 by means of four horizontal alignment pins 424. Two of the horizontal alignment 
pins 424 extend horizontally from the housing section 402 approximately midway into the transducer 
chamber 403. Similariy, two of the horizontal alignment pins 424 extend horizontally from the housing 
section 404 approximately midway into the transducing chamber 403. Each horizontal alignment pin 424 is 
formed integrally with the respective housing section 402. 404. The alignment pins 418. 424, sealing teeth 
412 and orifice aperture 406 are afigned and adapted to hold the jetting tube 432 and transducer 434 such 
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that the orifice 433 of tTio jettingltbe 432 oxtends Irttc fye ortfcri aperture - - - 

An electrical transducer activation pulse is supplied to the piezoelectric transducer 434 from the jetting 
head control unh 500 by means of two contact pens 422. A quantity of fluid wtH k>e dispensed from the 
jetting tube for each applied activBtion pulse. The activation pufse can t>e produced by a variety of 
6 conventional circuits or commercially available units. Therefore a detaited description of such a circuit will 
not be provided. However, a drcuit for producing a series of activation pulses is provided in the description 
of tt>e printing embodiment Ijetow. Due to the d»f fering constraints irwotvod in dispensing and printing, the i 
circuit in the printing embocfiment is not required to produce only a single pulse. However, one sWIted in the 
art could. If desired, modify the circuit to produce a single pulse on demand tor use In the dispensing 

TO embodiment * 
Each contact pin 422 defines an enlarged head 423 which is adapted to contact the respective first and 
second electrodes 437. 436 located on the outer surface of the transducer 434. Two contact pin holders 
414, integral with the housing 402, 404. are positioned to hold the respective contact pins 422 under the pin 
heads 423 such that each pin head 423 electrically engages tt>e appropriate electrode 437. 436 of the 

IS transducer 434. Two contact pin engaging posts 420 extend from the housing 402, 404 opposite the contact 
pin holders 414 to engage and hold the contact pins 422 against the contact pin holders 414. The ends of 
the contact pins 422 opposite the pin heads 423 extend through the housirig 402, 404 by means of contact 
pin apertures 421. Since the housir>g sections 402, 404 are formed symmetncally to one another, the 
contact pins 422 may l>e optionally attached al)Ove the transducer 434. 

20 In operation, the reservoir 200 containing reagent fluid is fastened to the jetting head 400 such that the 
fluid supply tube 430 extends into the reagent fluid. The fihcr 300 may be fitted to the tree end of the 
supply tut>e 430 or positioned inside the reservoir 200. Air is supplied through tne channel 410 around the 
supply tube 430 to prevent the reservoir 200 from falling below atmospheric pressure. The air is prevented 
from entering around the supply tube 430 and into the transducer chamt>er 403 by the seal created 

2S between the sealing teeth 412 and the supply tube 430. The jetting tube 432 may be pnmed by slightly 
pressurizing the reservoir 200 to cause the reagent fluid to travel through the supply tut>e 430 and into the 
jetting tut>e 432. Once primed, the fluid is prevented from sul>stantially withdrawing from the jetting tube 
432 by the surface tension of the reagent fluid at the orifice 433. 

The transducer activation pulse is conducted to the contact pins 422 of the jetting head 400. The 

30 contact pins 422 communicate the high voltage pulse to the electrodes 437, 436 of the transducer 434 with 
polarity such that the concentrically mounted transducer 434 expands. The rate of expansion is controlled 
by the rise time of the high voltage pulse which is preset to generate a rapid expansion. The expansion of 
the transducer 434 causes the jetting lube 432. which is epoxied to the transducer 434. to also expand. The 
expansion of the tube 432 generates an acoustic expansion wave interior to the tube 432 which travels 

as axlaliy towards the orifice 433 and .towards the fluid receiving aperture 431. When the expansion wave 
reaches the orifice 433, the reagent fluid is partially drawn inwardly. However, the surface tension of the 
fluid acts to inhibit substantial invrard fluid movement. 

When the expansion wave reaches the end 431 of the tube 432. the expansion wave is reflected and 
t>ecomes a compression wave wtiich travels towards the center of the piezo-electric tube 434. The high 

40 voltage pulse width is adapted such that when the reflected compression wave is beneath the piezo-electric 
tube 434. the high voltage pulse falls, resulting in a de-expansion of the transducer 434 and the jetting tut>e 
432. This action adds to the e»sting acoustic compression wave in the intenor of the jetting tut>e 432. The 
enhanced compression wave travels toward the on fice causing reagent fluid to be- dispensed from the tube 
432. The fluid is propelled from the orifice 433 as a small droplet 2 and deposited in the selected mixing 

45 cell 904 positioned by the transportation unit 902. One droplet 2 is dispensed for each transducer activation 
pulse. This mode of dispensing is relenred to as the drop on demand mode. 

In some instances, the droplet 2 may l>e accompanied by at least one smaller satelite droplet However, 
even H satelite droplets are present the volume and velocity of the reagent droplets 2 are highly 
reproduceable. This reproduceability allows for precise dispensing of uniform, controllably sized droplets 2 

50 of reagem fluid imo the mixing cell 904. 

The droplets 2 of reagents impaa tne mixing cell 904 with sufficient force and volume to cause fluidic 
mixing of the reagents. Once the desired amounts of the selected reagents are deposited in the selected 
mixing cell 904. mixing cell 904 is transported to the detection station 906 where the mixed reagents may 
be extracted for use or analyzed for assay results. 

55 The dispensing system 30 provides numerous advantages based upon the ability of the reagent jetting 
head 400 to rapidly and reproduceably eject uniform quantities of a wide range of reagents. Tne reaction 
times of some chemical processes are dependent upon the volume of tne reagents used. The abifity of the 
dispensing system 30 to dispense such minute amounts of reagents thereby reduces the processing time 
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Of certain cher.iical a;-5«ys. Firlhormoror some chen^cai bsm^ require, | WicJjB^ rBr7ge of dilution rstios. 
Many conventional disporwir^g systems ere unable to dispense the reagents in volume small enough to 
make the desired assay practical. The dispensing system of the pres ent irrvention overcomes this 
disadvantage. 

5 In addition to dispensing reagent fluids, certain embodiments may be used for precision printing of 
reagents onto a printing medium such as fitter paper to produce an assay test strip. A printing system 10 
using the present invention is represented in Rg. 3. Stnjcture similar In fonm and function to structure 
described above will be designated by like reference numerals. The printing system 10 comprises a 
reagent fluid reservoir 200. a filter 300. a reagent jetting head 400. a jetting head control unit 500. an 
to interface 600. a computer 700. and an x-y plotter 600. 

The x-y plotter 800 is a commercially available pen plotter, mechanically modified in a conventional 
manner such that the pen is replaced with the jetting head 400. The general operation and structure of ttie 
plotter BOO will not t>e described in detail. The ptotter 800 accepts commands from the computer 700 thru e 
standard RS-232 serial interface contained within the interface unit 600. The ptotter BOO processes the 
15 commands and produces control signals to drive an x-axis motor (not shown) and a y-axis motor (not 
shown). The x-axis motor is used to position the jetting head 400 and the y-axis motor is used to position a 
drum (not shown) to which the printing target 1 Is attached. 

The plotter 800 produces a pen down signal PENDN. This signal is appTied to the control unit 500 and 
indicates that the plotter BOO is ready to begin a printing operation. 
20 The control unit 500 also receives control signals from the interface unit 600. These signals include 
signals HIGHER*, LOWER" to control the magnitude of the pulse applied to the transducer 434; a reset 
signal RST to reset the control unit 500: and a series of print signals PRT. The generation of these signals 
will not be described in detail since their production is performed by the conventional interface unit 600. 
The jetting head 400 and fluid supply system 200, 300 are initialized and operate substantially as 
25 described above. The jetting head conttol unit 500. shown in Rgs. 5a - 5e comprises a print control circuit 
510. a pulse generator 530, a high voltage supply 540. and a strobe pulse generator 560. The control unit 
500* also comprises a power supply. However, since the power supply is of conventional design it will not 
be shown or descrit>ed in detail. 

The print control circuit 510 receives the pen down signal PENDN from the pk>tter 800 and comprises e 
30 transistor QIOO. a one-shot circuit U100. two NAND-gates U101. U102. a line decoder multiplexer U107 and 
four inverters U103-U106. The p>en down signal PENDN is applied to the base of ttie transistor QlOO by 
resistors RlOO, R101 and diode D100. The emitter of transistor QIOO is tied to ground and the collector is 
connected to the +5 volt supply by resistor R102- 

The one-shot U100 comprises inputs A. B and an output Q. The B input of the one-shot UlOO is 
35 connected to the collector of the trar\ststof QlOO and the A input is tied to ground. The time period of the 
pulse produced by the one-shot U100 is detennined by a resistor R104, a vanable resistor R105 and a 
capacitor CiOO. The output Q of the one-shot U100 is combined with the collector output of the transistor 
QlOO by the NAND-gate UIOI and then inverted by the NAND-gate Ui02. The circuit is operative to 
produce an adjustable delay in the application of the pen down signal PENDN to the control unit 500. 
40 The line decoder U107 is circuited to function as a 3 input AND-gate. The output of the NANO-gate 
U102 is appfied to the first input of the decoder U107: the print signal Br>e PRT* comprising a senes o? 
pulses from the interface unit 600 is applied to the second input, and a jetting head ON/OFF signal from 
switch SI is applied to the third input The inverter U106 inverts the output of the line decoder 11107 to 
generate the print control signal RRT* and the inverters U103-U105 invert the control signals LOWER*. 
45 HIGHER", and RST signals, respectively- 

The high voltage supply 540. shown in Fig. 5b. provides +175 volts DC to produce a maximum pulse 
of +150 volts peak to peak at the reagent jetting head 400. The high voltage supply 540 comprises 
differential amplifier U12 and transistors 01. 02. Q13. Q14. A stable reference voltage of -2.5 voUs DC is 
produced at the junction of a reservoir R13. conneaed to the -15 volt supply, and a diode CR6. connected 
50 to ground. The reference voltage is combined with a resistor R14 to produce an adjustable, stable voltage 
reference for the amplifer U12. The reference voltage is applied to the inverting input of the ampRfier Ul2 
through a resistor Ril. The noninverting input of the amplifier Ul2 is connected to ground by a resistor 
R12. The amplifier U12. in combination with a feedtwck resistor RiO. produces an output signal proportional 
to the difference of the vottage reference signal and the ground potential. 
55 The output of the amplifier U12 is applied to the base of the transistor Q2 whose colleaor is connected 
to the +15 voh supply. The signal produced at the emitter of the transistor Q2 is applied to the base of the 
transistor 01 through resistors R8. R6. R5. a transformer LI and diodes CR4. CR2- CRl. The emrtier of the 
transistor Q1 is connected to ground and the collector is connected to the +15 voltage supply through the 
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tr«nsfomior U A diode CR3 cCMecB tha collects ot.the o^sstor Q1 to p-a junrtcn of the resistor R5 
and the diode CR4 The transistor Q1 is biased for proper operation by resistors R7, R8, RS. The resistor 
n? and B caoacit™ C22 connect the Junction of the resstor R8. B6 to the + 1 5 vohage supply. 

The tmwirtjr Q1 and the trensformer LI form a 'flyback- btoddnB oscilUrtor. Any Increase In current 
suDoHed by the transistor 01 produces an increase in ooefBy transferred through the secondary winding of 
tt,e^Bnsformer LI and diode CR5. Therefore, an increase in ewrrent "yPP"^ " yme trawistor Q1 rwute in 
an incrBase in power availabte to the hiflh voltage output Tl« diodes CR1-CB4 form a -Baker clamp wh.e*i 
orevents transistor Q1 from saturaling. The clamp thereby avoids transistor storage time. 

^hTdiode CR5 is connected to a multiple pi filter formed by the inductors U. L2, capacrtors C24 «1. 
C41 and resistors R29. The muttiple pi filter attenuates ripple and switching spikes in the signal supplied to 
*e transistor Ql3 which produces the high voltage output V* *. A resistor R84 connects the base of me 
Q13 to the emitter and to the resistor U29. The base is also connected to the collector of the 
toa^-stor Q14 by a resistor R6S. The base of the transistor 014 is connected to the * IS volt supply by a 
^ristor RB7 end to ground by a resistor R66. The emitter of the transistor 013 provides a signal HV 
SENSE which is fed back to the inverting input of the ampOfier U12 through a resistor R9. The high voltage 
oS^ V* * is produced at the collector of the transistor Q13. The preper biasing of ^J^^^°'^ « 
«c«ided by resistor R64 and the biasing circuit comprising the transistor 014. resistors R67. RBS^RBS. 

The pulse generator 530. shown m Figs. Sd. Se. comprises an optoisolator U18. a one-shot U23. a 
diaital to analog (D/A) converter U30 and two binary counters U24. U2S. The pulse generator 530 accepB 
control sionals PRT LOWER". HIGHER-. RST and produces the activation pulse which is applied to the 
^ducer 434. In normal operation, the PRT contrel signal is suppHed to the opt«HsolaTor U18 by a jumper 
JMP between contact points E5. E6. The opto^solator U18 is of conventional design and compnses a Rght 
emittina diode (LED) circuit and a photo^lement circuit A resistor R15 operates as the load resistor for the 
LED drcuH of the isolator and a capacitor C25 suppresses transient noise on the voltage supply to the 
isolator U18 T^ie output of the isolator U18 is applied to one input of the one-shot U23 whose time constant 
•« adjustably determined by resistors R38. R2S and a capacitor C30. The pulse from the nonnnverting 
output of the one-Shot U23 is fed to the base of a transistor 09. A resistor R39 s^ the aPProx-mate base 
. cun^ent of the transistor 09 which is used as a level shifter tor converting the CMOS signal level to the * 15 

« ??e wi^^^ the rise and fall rates of the pulse generator 530 is accompfished by directing a pair of 
current source transistors Oil. Q1 2 to charge and discharge a capacHor C57. The transistor Oil is 
operative as a source of current and the transistor 012 Is operative as a sink for current. A transistor QlO 
controls the level of the current by applying an appropriaie bias current through a resistor RSe to the base 
of the transistor Oil. The biasing of the transistors Oil. 012 is critical to the proper rise and fall rates. 

>s Therefore precision voltage references CR13. CR15 are used to provide respective bias reference voltages. 
A temperature compensation network is formed from zener diodes CR14. CR16 and resistors R5S. R54 to 
maint^n stable operation of the transistors Oil. 012. respectively. The variable resistors R49. R52 may be 
..<:»d to adiust the fall time and rise time, respectively, of the output pulse applied to the reagent jetting 
400. A plurality of resistors R45. R46. R47. R4a. B49. R51. R52. R53 R56. R57. R58 are used to 

40 property bias the transistor Ol 0. 01 1 . Qi2 and capacitors CSS. C60 are circuited to maintain stability of the 

*^"^The impedance of the output stage of the rise and fall circuitry OlO. Oil. Ql2 is very high. With such a 
hioh imoeoance. circuit elements attached to the capacitor CS7 could affect the linearity ol the nse end fall 
tirne constants Therefore, an FET input operational ampTifier U32 is used as an impedance intertace. The 
45 amolifier U32 is confioured in the noninverting mode and arcuited with capacitors C58. C59 for stability. 

The output of the'amplifier U32 is applied to an inverting.ampnfier U31 by means of a resistor R62. The 
amontier U31 inverts and conditions the pulse control signal with the aid ol resistors R59. R60. Resistors 
RBI R53 connected to the -15 voltage supply, provide a means for adjusting the DC level offset of the 
ampVirier U31 output signal. Capacitors C51. C52 are connected to enhance the performance and stability of 

so the ^^^^ amplifier U31 is applied Dy means of a resistor R41 to the positive voltage reference 

sional inout REF{*) of the D.A converter U30. The negative voltage reference signal input REF(-) is tied to 
oround by a resistor R40. The D'A converter U30 produces output signals lOlTT, lOUT which are 
proportional to the difference between the positive and nega tive voltage reterence signal inputs REF( ♦ ). 

ss REFM Capacitors 046. C49. C50 are connected to the D A converter U30 to enhance staoility. 

The D/A converter outputs lOUT. lOUT are also proportional to an e-bit binary value applied to inputs 
B1-B8 The binary value is suppfied by the counters U24. U25 which are controlled by the function signals 
LOWER- HIGHER- and RST. The LOWER" signal and the HIGHER' signals are applied to the count up and 
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count down Inputs CU. CO of tho'^cbunter 1524 by metfv? of opt(Hsolators U19. U20 The cany and borrow 
outputs CY. BR of the courrter U24 are connected with the count up and count down inputs CU. CD of the 
counter U25. The reset inputs RST of both counters U24. U25 receive the RST signal by means of an opto- 
isolator U21. Resistors R16, R17. RIB are used as load resistors for the LED circuits of the isolators U19. 
U20. U21 and capadtors C26. C27, C28 are used to enhance the stability of the isolator circuits. 

The counters U24. U25 may optionally be preloaded to the selected 84)ct binary value through input 
lines TPa-TP7. The input lines TP0-TP7 are normally biased to the logical high signal state by resistive 
network U22. The selected binary value is loaded into the counters U24. U25 by pulfing the respective 
inputs TP0-TP7 low and applying an external, active tow. load signal EXT LOAD to pin TPS. The load signal 
pin TP8 Is connected to the load inputs LOAD of the counters U24. U25 and conditioned by a dipping 
drcuit comprised of diodes CR9. CR10 and a pull-up resistor of the resistor network U22. 

The noninverted and the inverted outputs lOUT. (OUT ere connected to the inverting and noninverting 
inputs of a differential amprrfier U29. The output of the ampPfier U29 is fed back to the invert ing input by a 
resistor R50. The amplifier U29 converts the cunrent output of the D/A converter USO to a voltage output 
15 Capadtors C56, C47 are provided to enhance drcuH stability. 

The output of the amplifier U29 is applied to the noninverting input of the ampWier U28. The output of 
the amplifier U2S is fed back to the inverting input by means of a capacitor C46 and a resistor R37. The 
inverting input is also connected to ground by a resistor R36. To enhance the frequency response of the 
ampUfier U28. a resistor R43 and a capadtor C54 are connected between the frequency compensation input 
FC and ground. An adjustable DC offset is provided by connecting the output offset inputs OF, OF with a 
variable resistor R42. The wiper of the resistor R42 is connected to the high voltage power supply output 

The output of the ampfifier U28 is also connected to the base of a transistor 04 and through diodes 
CR11. CR12 to the base of a transistor 07. The transistor 04. 07. Q3 and resistors R30-R35 form an output 
drcuit capable of driving high capadtive loads at high slew rates and wide bandwidth. The variable resistor 
R31 may be used to set the maximum current through the bias network R30. R33 by measuring the voltage 

drop across resistor R35. ^ ^ 

The strobe generator 560 produces a strobe pulse and comprises transistors Ol 01-01 05 and a one- 
shot drcuit U108. The strobe intensity is determined by the drcuit comprising the transistors Q101-Q104 
and resistors R109-R115. The drcuit is connected to the anode of the LED 900 and receives two inputs 
from the interface unit 600 to produce four levels of light intensity in the LED 900. 

The activation aand duration of activation of the LED 900 is determined by the one-shot U108 and the 
Vansistor 0105. The one-shot U108 comprises inputs A, B and an output 0. The strobe signal STROBE is 
applied to the B input from the interface unit 600. The duration of the one-shot U108 output pulse is 
controlled by the adjustable RC network R107. R108. The output Q is applied to the base of the transistor 
Q1G5 by resistor R108. The collector of the transistor 0105 is connected to the cathode of the LED 900 to 

draw cun-ent through the LED 900. 

The computer 700. control unit 500 and plotter 800 must be initiaTized. The initialization of the computer 
700 and the plotter 800 will not bo discussed since these units are of convenbonal design and operation. 

To initialize the jetting head control unit 500. the computer 700 directs the interface unit 600 to issue a 
reset command. The reset signal RST is conducted to the control unrt 500 whereupon the counters U24. 
U25 are cleared. The computer 700 then retrieves from its memory, or by conventional operator input, the 
desired digital setting for the D/A converter. This setting may also be calculated from data and may be 
tailored to specific sizes of jetting heads 400 or reagent fluids. The computer 700 then issues a series of 
4S commands, through the interface unit 600. to increment or decrement the counters U24. U25 to correspond 
to the desired binary setting. If the command directs that the counters are to be raised, then the HIGHER' 
signal is applied through the opto-isolator U20 to the count up CU input of the counter U24. Similarly, if the 
command directs that the counters are to be lowered then the LOWER- signal is applied through the opto- 
isolator U19 to the count down CD input of the counter U24. Since the carry and bonw outputs CY. BR of 
50 the counter U24 are connected to the count up and count down inputs CU, CD, respectively, of the counter 
U25, the digital setting applied to the D/A converter U30 may range from 0 to 255. Alternately, the counters 
U24! U25 could be initialized to a desired setting by ksading the binary value on the lines TP0-TP7 and 

sti-obing the EXT LOAD line. 

Once the control unrt 500 and tine plotter 800 are iniliafized. the printing cycle may t>egin- The computer 
55 700 issues a command to the interface unit 600 to produce the senes of PRT signal pulses. The computer 
700 then commands the plotter 800 to pnnl. for example, a tine along a selected path. The plotter 800 
positions the jetting head 400 and target 1 and issues the pen down signal PENDN. The signal is delayed 
by the print control circuit 510 to ensure that tiie target 1 is property positioned. At the expiration of the 
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delay, the signaTls ANDed with tJw ctosed enable sSri^cb "Sv^ ^ aeries of print pulses PRT. The resutt 
of the AND operation is the appUcation of the PRT pulses to the putse generator dmrit 530. 

The PRT stonal Is appGed through the lumper JMP to the opto-tsoiator U1B and then to the or»-shol 
U23 The one-shot U23 produces a pulse signal which is then converted from CMOS signal levels to the 15 
volt DC signal level by the transistor 09. The rise and fan circuitry comprising Q10. Oil, 012 converts the 
square wave pulse into a pulse having the rise and fail characteristics preset by the resistors R49. R52. The 
conditioned pulse is then ampfffied by the amplifier U32 and appBed to the amprrfier U31 . 

The ampfifier U31 converts the polarity of the conditioned pulse to that acceptable by the D/A converter 
U30 and suppfies an ediustaWe DC offset The DC offset is used to counteract possible distortion 
attributable to the ampfifier U31. The distortion arises m that for the ampfifier U31 to be adequately 
responsive a small degree of current must flow through the resistor R41. This current creates an offset 
condition at the output of the ampDf.er U29 which is then scaled by the D/A converter U30 in conrespon- 
dence vrith the binary data. The resistor R83 allows a small amount of current to be appfied to the ampfifier 
U31 to control the offset voltage attributable to the current flowing through the resistor R4i. 

The D/A converter U30 scales the difference between the inputs REF(^). REF(-) using the binary data 
supplied to input Pnes B1-BB to produce a current output pulse lOUT and a current inverted output pulse 
lOtrr. The two outputs lOlTT. lOlTT are fed to the ampfifier U29 which convert the cun^nt outputs into a 
single voltage output The scaled, conditioned pulse is then applied to the output circuit comprising the 
ampfifier U28 and the transistors 03. 04. 05. 06. 07. The drcuit produces a high voltage pulse with the 
aforementioned rise and fall characteristics to drive the piezo-electric transducer 434. 

The high voltage pulse is appUed to the transducer 434 and causes a dnsplet 2 of fluid to be propelled 
onto the target 1 . Since the pen down signal PENDN is still appfied. additional droplets 2 are produced from 
the jetting head 400. The plotter 800 moves the jetting head 400 and target 1 along the desired path during 
the emission of the droplets 2 to produce the desired printed line. When the printing is complete, the plotter 
25 800 removes the pen down signal PENDN and the droplet emission slops. Of course H should be 
understood that dots, circles and the fike could be produced by appropriate positioning of the target 1 and 
jetting head 400. 

The sire and unHormrty of the droplets 2, as well as the presence of any satefite droplets, may be 
observed with the aid of the scope 950 and the LED 900. The scope 950 and the LED 900 are positioned 
such that the droplets 2 pass between the scope 950 and tne LED 900 and within the local range of the 
scope 950. The strobe pulse when appfied to the LED 900 causes the LED 900 to momentarily flash. The 
timing of the activation and the width of the pulse may be adjusted such that the flash occurs wnen the 
fluid, expelled in response to the high voltage pulse, is between tne scope 950 and the LED 900. The 
dispensed quantity of fluid may then be observed in ffight or at or near the momement of separation from 
35 the orifice 433. Con-ections based on tne observation rnay then be made tc the system 10. . 

■ Since each droplet 2 is small in volume, the droplet 2 may be rapidly absortjed oy the target i. thereby 
allowing rapid and precise placement of a variety of reagents on the target 1 with reduced drying time and 
reduced potential of fluidity mixing. In addition, the ability to place small droplets 2 in a precise manner 
enables the target 1 to be printed in a high density matrix with a variety of reagents as isolated matrix 

40 elements. . * . . ^ ^ 

In some printing applications, particularly when printing flutds of flow viscosity and surface tension, it 

may be desirable to force the fluid through the jetting tube 432 under pressure ano allow the vibrations 

produced by the transducer 434 to break the emitted fluid stream into precise droplets 2 Under tnis mode 

of printing, the emission of droplets 2 can not be stopped by cessation of tne tranducers activation ou'se ft 

45 is therefore necessary to prevent fluid emission by other means. One prefen-ed means of momenianly 
stopping emission of the droplets is shown schem atically in Fig. 4. In this arrangement, struaure sim.ia- lo 
structure represented in Fig. 3 in form and function, is represented by Hke reference numerals. 

The arrangement, generally represented by the numeral 20. includes a closed reagen; recirculation 
system comprising a nonnaliy close throe way valve 970. a sump 950 and a rearcuiation pump 980. In the 

so continuous mode, the reagent fluid is forced out the orifice 433 by hydraufic pressure and broKen into a 
series of substantially uniform droplets 2 by movement of the transducer 434. A regulated, filtered air 
supply 100 is used to pressurize the reagent fluid reservoir 200. The reagent fluid within tne reservoir 200 
may optionally be agitated by a magnetic stirer unit 990. This is especially useful for reagent fluids 
comprising suspended particles. 

65 The three-way valve 970 comprises a common channel, a normally open channel and a normally closed 
channel. The fluid is forced through the filter 300 and applied to the normally closed channel of the valve 
970 When the normally closed channel is closed, the normally open channel of the valve 970 functions as 
a vent for the reagent jetting head 400. The common channel is connected to the reagent supply tube 430 
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of the Jetting head 400. The reiQ-irt sijpply^tutje 430 \s also cQnqa:ted to the stmp 960.' 

In operation, the normally closed channel is opened by an appropriate signal suppfied by the computer 
700 which also doses the normally open channel. When the rwmally dosed chanr>el Is operted. fluid is 
permitted to pa» to the sump 960 and to the ietting head 400. The sump 960 collects the reagent fluid not 

5 transferred to the jetting head 400. The sump 960 suppTtes the collected fluid to the inlet side of the 
recirculating pump 960 wtiich returr^s the fluid to the reservoir 200. The returned fluid is then mixed wtth the 
contents of the reservoir 200 and ts available for redrculation. 

When operating in the continuous mode, rather than mterrupt the continuous stream of print pulses to 
the jetting head 400, the prfnting may be momentarily stopped by dosing the rxxmalty dosad channel of 

10 the valve 970. The dosing of the normally closed charvtel stops the flow of reagent fluid to the jetting head 
400 and allows the jetting head 400 to vem to atmospheric pressure. With the fluid supply blocked, the 
transducer 434 is unable to expel further droplets 2. Thus. K positioning of the target 1 by the plotter 800 
requires a longer time interval than the time between droplet 2 emission, the computer 700 may dose the 
normally closed channel of the valve 970. The plotter BOO may then position the target 1 or position a new 

15 target 1 as desired. 

When printing, the active ingredient of the reagent is tailored to achieve a desired concentration per unH 
area on the target 1. However, to a certain extent the final concentration per unit area can be adjusted by 
varying the density of the droplets 2 printed on the target 1. The preferred embodiment is particulariy well 
suited to this application due to its ability to print p>redse. discrete pels of reagent 
20 A second preferred embodiment of the jetting head Is illustrated in Figs. 6a-6b and is generally 
represented as 400*. The jetting head 400* comprises housing formed into three sections 40 T, 402*. 403'. 
The housing section 403' comprises a recessed region which forms the reagent fluid reservoir 200* when 
the housing section 403' is positioned against housing section 402. 

The jetting head 400* further comprises a ptezo-^lectric transducer 434' and a reagent jetting tube 432 
25 similar to those of the first embodiment The jettir>g head 400* and ttw transducer 434* are most cleariy 
shown in Rg. 6b. The jetting tut>e 432 defines an orifice 433' at or>e end tn6 a reagent fluid receiving 
aperture 43V at the other end. The transducer 434* is mounted to the jetting tut>e 432 concentrically about 
the mid-region of the tut>e 432* with epoxy. 

The transducer 434' and the jetting tube 432' are positioned in channels 420*. 418*. 416' located in the 
30 housing sectiorw 402. 40V. The channel 4*16* comprises a pluraTrty of sealing teeth 412 operative to 
engage and seal against the fluid receiving end 43V of the jetting tut^e 432. The channel 416* is connected 
to the reagent fluid supply channel 430*. The supply channel 430* is cormected with the fluid resen^ir 200* 
by means of an aperture 43V through the housing section 402, shown in Rg. 6b. 

The reservoir 200' comprises a flexible reservoir Bning 20V adapted to contain the reagent fluid. The 
35 lining 20V comprises one aperture which is connected to the housing 402 to allow the fluid to pass from 
the lining 20V. A vent {not shown), located in the housing 403*. allows the space between the reservoir 200' 
and the lining 20V to be vented or pressurized. A filter 300* is positioned within the aperture 202 to trap 
unwanted particulate foreign matter. 

Electrical pulses are supohed to the transducer 434* by means of two contact pins 422. The pins 422 
40 are inserted through respective apertures 419' of the housing section 402 and respective apertures 421* ol 
the housing section 403'. Two thin electrically conductive strips 410*. 41V. shown in Rg. 6b. are used to 
connect the transducer 434' with the contact piris 422. A protective shield 405* extends from the housing 
position 403' to partially isolate the protruding portions of the contact pins 422. 

The function and operation of the jetting head 400* is similar to that of the jetting head 400 and 
45 therefore will not be discussed in detail. The collapsible inner Pning 201' of the reservoir 200 allows the 
jetting tubie 432 to be primed by pressurizing the reservoir 200' through the vent 205'. Once primed, the 
jetting head 400' may t>e used as described above in refererice to the jetting head 400. 

The jetting head 400' provides an advantage in that the entire fluidtc system is contained in one 
housing. Such containment allows for fast and efTictent replacement of the jetting heads without fluid 
50 contamination problems. 

A third preferred embodiment of the jetting head is shown in Rg. 7 and generally represented as 400'. 
The jetting head 400' compnses a housing 403*. a reagent fluid supply tut>e 406*. a piezo-eiectric 
transducer 434' and an orifice plate 404'. The housing 403' defines a conically shaped fluid chamber 432*. 
An orifice plate 404'. defining an orifice 433*. is fastened to the housing 403' such that the orifice 433' is 
55 located at or niear the apex of the conical fluid chamtier 432"- 

The fluid feed tube 406' is attactied to the housirtg 403' and defines a supply channel 430*. The supply 
channel 430* is in fluid communication with the fluid chamt>er 432" by means ol a connecting channel 43V- 
The base of the fluid chamber 432* is formed by the disc-shaped transducer 434*. The transducer 434' is 
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held in position by . hold down plate 402- attached nt» h«W 403-. J^.^^^P^i "t)*.*!^, 
transducer 434' ere of conventional design and are therefore not shown. The hous-ng 40T further 
comprises a threaded aperture 406* for mounting the Jetting head 400". . ^ ^ ^ 

^t^e letting head 400* operates In a manner similar to the Jetting heads described above. However, m 
5 this jetting head the tnmsducer 434' is nom«lly disk ti«ped. When the etectrical pulse « aPP««J- J^e 
transducer 434" bends slightly, thereby altering the volume of the conically shaped leltng chamber 4^ 
The change in volume of the chamber 43r causes the expulsion of fHiid through the ««« ^ 

intake of fluid thnsogh the supply channel 430" as described In reference to the jethng head 400. 

A fourth embodiment of the jetting head is shown in Rg. 8 and Ben««My represented « 

,0 400- The jetting head 400" Is very similar in form and function to the Jetting head 400 and w.11 not be 
described in detail. The jetting head 400" comprises two symmetrical housing sections. The sections may 
be connected together by means of apertures 409" and screws, not shown. When assembled, the housing 
sections 404". 402" form a T-shaped supply channel 410" . . . ^ ^ ^ ■ ^ 

In operation, the jetting head 400" functions in a manner amitar to the jetting head 400. The jetting 
,s head 400- is especially suited for use In the continuous mode, but may also be used in the <J«>P 
demand mode. In the continuous mode, the fluid is dreulated continuously through the supply channel 430" 
allowino the jetting tube 432" to withdraw as much fluid as re<iuired. 

Bv way of illustrating and with no Timitations intended the foUowing information is given to further 
illustrate the above described embodiments. The computer 700 is an IBM Corporation Personal Comptrter 
20 with 640 kbytes of MM memory. The intertace unit 600 is a Bun Brown interface unit model number PC 
20001 The plotter 800 is manufactured by Houston Instniment as model number DMP-«0. Common.cahor, 
between the ptotter 800 and the interface unit 600 is periomied through a standard asynchronous senal 

communication porL ^ . ^ ^ 

The electrical pulse applied to the jetting head 400 to activate the transducer 434 compnses a nse tme 

25 oi approximately 5 usees, a tall time of approximately 5 usees and a pulse width of approximmely 35 use«^ 
WhTn the transducer 434 is operated in the drop on demand mode, the voltage potential of the pulse is 50 
volts Pius or minus 10 volts and the pulse frequency can l>e up to 4 khz. When the transducer 434 is 
operated in the continuous mode, the voltage potential of the pulse is 30 volts plus or minus 10 volts and 
the pulse frequency can be up to 10 khz. 

30 The jetting tube 432 is manufactured from a pyrex glass tube and measures .027 tnchcs outstde 
diameter and .020 inches inside diameter. The tube is drawn to a dosed taper in an electric hjmace. The 
taoered end is then cut and ground to a desired orifice opening of .002 to .004 inches in diameter. The tube 
iToJt to a final length of .945 inches in the case of the dispenser embodiment and uhrasomcally cleaned in 
acetone After being cleaned and dried the large end of the tube is fire polished. If desired, the onfice end 

35 of the tube may receive a coating, such as a hydrophobic polymer, to enhance droplet separation from the 

« 

^"'^^he supply tube 430 is formed from .023 inch inside diameter and J8 inch outside diameter 
polyethylene tubing produced by Intramed.c Corp. as model number #14 170 llB. During assembly one 
end of the tubing is stretched over a warm tapered mandrel. The stretched end of the supply tuoe 430 is 
40 then inserted over the large fire polished end of the jetting tube 432. The assembly is then cleaned and 
baked in a circulating air oven at 50 'C. for 10 minutes. o.r-r tk 

The transducer 434 was purchased from Vemitron of Cleveland. Ohio as model number PZT-5H. The 
electrodes 437 436 are compnsed of nickel and are separated from eacn other on the outer surface of the 
transducer by Approximately .030 inches. The jetting tube 432 ts inserted Into the cyllndncal ptezo^Iectnc 
45 tube 434 and secured with epoxy manufactured by Epoxy Technok)gy of Bellenca. Massachusetts as model 
number 301 The epoxy is apolied at the junction of the tube 432 and transducer 434 with a synnge. The 
epoxy flows along the tube 432 inside the transducer 434 by capillary action. The assembly is then baked 
in a circulating air oven at 65'C. for one hour to cure the epoxy. 

The contact pins 422 are secured to one of the housing sections 402. 404 with a drop of epoxy. The 
50 transducer jetting tube 434. 432 is placed in the housing such that the orifice end 433 of the tube 432 
protrudes approximately .030 inches from the housing 403. 404. A drop of silver epoxy is placed between 
each contact pin 422 and the transducer 434 to ensure a secure electrical connection. Epoxy ts also aopl.ed 
to the junction of the housing 402. 404 and supply tube 430. The other section of the housing 402. 404 is 
then screwed into place. 

S5 The periphery of the housing 402. 404 is sealed with a capillary sealer such as cyclohexanone. Epoxy 
is then added around each contact pin 422 and around the orifice end 433. The assembly is then baked in 
a circulating air oven at 65*0. for one hour. . ^ . 

The fitter 300 is formed from a polyester mesh with 30 urn pores and positioned in a polypropylene 
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housing. The air pressure suppfied to the reservoir 20C Juring ccotinuoos prrting opera'iions is regulated at 
approximatety 10 to 30 psi. 

The reagents used have the fotkmtng characteristics: 
Printing (drop on demand mode): 
5 Ruid viscosity range: 1-30 centipoises 
Ruid surface tension: 20 - 70 dyne/cm 
Printing (continuous mode): 
Ruid viscosity range: up to 50 centipoises 
Fluid surface tension: rwt measured 
10 Dispensing (drop on demand mode)- 

Ruid viscosity range: 2-30 centipoises 
Fluid surface tension: 20-70 dyne/cm 

A measure of the performance ar«J selected operating characteristics for a typical jetting head are 
presented in Rgs. 9-11. Rg. 9 is a graph of the mass of a droplet as a function of droplet emission 
15 frequency for three fluids. The viscosity of the fluids were 1, 5 and 24 centipoise af>d the transducer 
excitation pulse width was 35 microseconds. As shown in Rg, 9. the higher fluid viscosity results in a more 
stable operating performance of the jetting head. Rg. 10 is a graph of droplet velocity as a function of 
droplet emission frequency for fluid viscosities of 1, 5 and 24 centipoise. The log of the total fluid weight as 
a function of the log of the number of droplets emitted is shown in Rg. 11. The fluid used has a viscosity of 
20 2 centipoise. a surface tension of 20 dynes/cm, and a density of .8 grams/cc. The transducer excitation 
pulse was 80 volts and the excitation frequency was approximately 7l l Hz. 

Some blood typing reagents and some allergen reagents have very low viscosities and surface 
tensions. Although In some cases viscosity modifiers, such as glycerol dextran. glucose, and the like, may 
t^e added to increase the viscosity, a few reagents are adversely affected by such modifiers. 
25 Developing stable and reproduceable demand mode jetting is difficult with very low viscosities. 
Although droplet emission can be established at some fundamental frequencies, the droplets dispensed 
may have small satelite droplets v/hich reduce the accuracy for metering and dispensing applications. 
However, even with the satelite drops, sufficient reagent is adequately delivered for most print applications 
without a substantial decrease in print quality. 
30 Glycerin may t>e used as a viscosity modifier to improve jetting reliabifity ar>d to prevent obstruction of 
the orifice arising from evaporation of the reagent fluid components. Glycerin has t>een found especially 
beneficial for those reagents containing particulate material. The evaporation of the fluid comp)onent results 
in a concentration of glycerin located at the orifice. The plug of glycerin substantially prevents further 
evaporation of the reagent fluid. During the next activation cycle of the transducer, the plug of glycerin is 

35 expelled from the orifice. 

When operating in the dispensing mode the volume of the droplets can be varied to substantially 

uniformly contain from 100 pico-lrters to 1 micro-liter. The droplets can t>e produced at a rate of 

approximately 1 khz to 8 khz. When operating tn the printing mode tne size of the pel made by each 

droplet measures approximately .001 -.012 inches in diameter. 
40 A copy of the program used in the computer 700 for a printing operation is attached hereto as Appendix 

A. The values, manufacturer and manufacturing part number of the circuit components of the jettmg control 

unit 500 are substantially as follows: 
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Ref. Numeral 
of Componen* 

R39, 45-48, 57, 

58 
R66 
R3 
R34 
R50 

R13,23,36,40, 

41 
R55 

R8 
R6 

R7,12,25 
R67 
RSI, 53 
R29 
R61 

RlS-18, 26-28, 

54,55,64 
R62 
R30,33 
R21 
R19 
R35 
R43 
R60 
R37 
RS 
Rll 

U2, 11, 14, 16,22 

C21,41,45 

C24 

CIO 

CI, 2, 3, 55, 60 

CS3 

C36 



Description 
and Value 



RZS . 10K0HMljWATT5%C . F . 
RES . 150OEI'I2ffWATT5!;C . r . 
RZS . ISKOHMS^'WATTSTo- • r . 
RES . 16KOHIm5jV;ATT5%C . F . 
RES - 2 . 4K0HI^35W.-.TT1' 



Manufacturer 
and Part No . 



'1 • v 



RES . 2 . 4KOHI<liffWATr5%C . F . 
RES . 20KOHMi5WATT5%C . F , 

RES . 2200Kr-T>rV/Arr£r.Z . F . 
RES . 270HI-:lV7A'rr5%C . C . 
RES . 2K0H!':isV;ATT£:;C . F . 

RES3 . 6KOHi-!>iv;Arr5:;c . F . 

RES . 3 . 9K0mijV^ATTS:;C . F . 
RES . 300KOHI^itWATT£r;C . F- 
RES . 3 OKOHTsjWATTi:;-: . F . 

RES . 4 . 7KOHI-n5V;ATT£";C . F . 
RES . 45 . 3K0H!'nsWAmr::< . F . 
RES . 470HI%V;ATT5%C . F . 
■RES . 470OHI-l>fWATT5!;C . F . 
RES . 47KOH!-|53V;ATT5r;C . F . 
RES . 5 100HI-liiV;ArT5%C . F . 
F^S . 5 . 2KCHI'l>rV?A~5*;C . F . 
RES . 7 . 5KOHI':5sV7ATT5%C . F . 
RES . 75KOHMi5V;ATT5%C . F . 
RES . 7 oKOHI'IViVJATr ITiK . F . 
RES . 8200HMJsWATT5%C . F . 
RES. DIP NETWRK.47K0HM 
CAP . AX I AL I MF@2 5 0 VDC 
CAP - AX: AI-220MFi£250VDC 

CAP.AJ'CIAL ALTO ELEC. 

4700 OMFi?25^/T)C 
CAP. RADIAL DIPPED TA>rr, 

10Mr@25VDC 
CAP. RADIAL DIPPED TANT. 

1MF@35VDC 
CAP. RADIAL DIPPED TANT 

47MF'iH0\TDC 



DALE RL079242C 



DALE RL079303G 



DALE RN55D4532F 



DALE KN60D7652F 

CT9 761-1R47K 
I4ALL0R1 4^TC56 
I4ALL0Ry 

LP2219250C7P3 
I-LALLORY 

TCG472JC25MIC 
KEMET 

. T35OE106M025AS 
KET-IET 

T35OA105KC35AS 

KEMET 
T350E566HC10AS 
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Ref. Kuineral 
6 of Component 

C54 

C57 

fO 

C49 
C39 

75 C6 

C30, 35,37 
C4,7 

20 

C4, 5, 6, 9, 11-19, 
22,23,25-28 

C31-34,37,42,43 
47,48,50-52 
25 C56 , 58 , 59 

C46 

CR7,e,9,10, 
11,12,17 
30 CRl ,2,3,4 
CR5 

CR6, 13, 15 
CR14, 16 
U6, 13, 15,17 

35 Q2 , 9 , 12 
08,10,11 
Q4 
Q7 

Ql 

03 , 14 
Q13 
U5,27 
U23,25 
U7-10 
U30 
U24,25 
U2a 
Ul 
U4 
U3 

U12,29,31,32 
U18, 19,20,21 
R24,42,63 
R38,49,52 
R20 

55 

R14,31 
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Description 
and Value 


Manufacturer 
and Part No. 


CAP. RADIAL SILV MICA 


KAHGAN 


100PF300VDC 


SD5101J301 

* 


CAP. RADIAL SILV MICA 


KAHGAN 


20PF300VDC 


SP12200J301 


CAP. RADIAL SILV. MICA 


KAHGAN 


39rF300VDC 


SP12390J301 


CAP, RADIAL X7R MLC 


KEMET 


.015MF€>50VDC 


C315C102K1R5CA 


CAP. RADIAL X7R MLC 


KEIffiT 


.022MF@50VDC 


C315C223K5R5CA 


C.2lP. RADIAL 25U MLC 


KEMET 


.015MF@50VDC 


C315C153K5R5CA 


CAP. RADIAL 25U MLC 


KEMET 


.0ir4F@50VDC 


C315C103K5R5CA 


CAP. RADIAL 25U MLC 


KEMET 


.22MF@50VDC 


C322C224M5U5CA 



CAP.VARI .2-12PF. 
DIODE SIL. 

DIODE SIL. FAST 

DIODE SIL. FASTHI VOLT 

DIODE SIL.REF.2,5C0VDC 

DIODE SIL.2ENER3.3V.25WATT 

SWITCH 8 POSITION DIP 

TRANSTOR . COMMON N?N 

TRANSTOR . C0I€*10N PM? 

TRAI^ISTOR . HI VOLTHIFREQ . NPN 

TRANSTOR . HI VOLTH I r REQ . PNP 

TRANSTOR. HIVOLTHIIMPN 

TRAl^STOR . HIVOLTMPN2N3439 

TRAN STOR . H I VOLTPNP 

IC 1-SHOT 74HC221 

IC 1-SHOT 74LS221 

IC COr^PARATOR 74KC688 

IC CONVERTER DAC0800 

IC COUNTER 74HC193 

IC HI SLEW HI VOLT OP AMP 

IC HYBRID DC/DC CO^^vERTER 

IC OC DRIVER SK7406 

IC OCTAL LATCH 74HC374 

IC OP AM? LF256 

IC OPTO ISOLATOR 

P O T 1 0 0 K OHM V WATT 1 0% 

P OT 1 OKOKMiffWATT 1 0% 

POT25KOHMijWATT10% 

P 0T2 KOHMijWATT 10% 



JOHANSEN #9626 
ITT.FAIRCKLD. 1N4143 

GENL. INST.EGPIOD 
GENL, INST,UF4007 
NATL . SEMI-LM3852-2 . 5 
MOTOROLA 1N4622A 
CTS 206-8 
MOTOROLA 2N2222A 
MOTOROLA 2N2907A . 
MOTOROLA MP5U10 
MOTOROLA MPSU60 
TI , M0T0R0LA-IP48 
MOTOROLA 2N3439 
MOTOROLA MJE5731 
NATL. SEMI MM74HC22IN 
NATL. SEMI DM741S221N 
NATL. SEMI MM74HC688N 
NATL. SEMI DAC0800LCN 
NATL. SEMI •MM74HC193N 
BURR-BROWN 3584JM 
BURR-BROWN MODEL 724 
NATL. SEMI DM7406N 
NATL. MM74HC374N 
NATL. SEMI LF256H 
HEWLTT-PCKRD HCPL2300 
BOURNS 3622-1-104 
BOURNS 3622W.1-103 
BOURNS 3622W-1-253 
BOURNS 3622W-1-202 
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TO 



15 



20 



35 



30 



35 



Ref. Numeral 
of Componen't 

VRI 

RIO 

R2,4 

R32 

R44 

Rl 

R5,R22 
R65 
,R59 
RlOO 

R101,108 
R102,1C3 

106,109.110 
R104 
R1C5 
R107 

Rill, 113 
R112 

R114,115 

ClOO 

C108 

DlOO 

Q100,105 

Q101,102 

0103,104 

U100,U108 

U103,104 

105,106 
U108 



Description 
and Value 

RECUI-ATOR 5VDC 
RES . lMEG0HI-iyVATT5%C . F - 
RES . 1 . 2KOErB5WATT5%C . F . 
RES . 1 - 6KOHrDsWATT5%C . F . 
RES . 1 . 8K0HrByV;ATTS%C - F . 

RES - iokegohi^v;att5::c . F 

RES . 100HI^WArr5%C . F . 
RES . 100K0Hl^iiffWATT5%C . F . 
RES . 10K0HI^^V/Am%!^ - F . 
RES.270OHI4 
RES.4700EM 
RES.IKOHM 

31ES . 47000H!': 

PCT.100K0EH 

POT-IOKOHI'! 

RES.2200S-1 

RES.22CH!-! 

RES. 470H': 

CAP.10KF035 ^/PC 

a^-P.lOCOO PF 

DIODE 

TRAMSTOR 

TRANSTOR 

TRA>1ST0R 

IC I-SHOT 

IC INVERTOR 

IC LiriE DECODER 



Hanaf acrurer 
and Part No. 

NATL.LM340T-S.0 



DALE RN55D1002F 



1N4148 

2M2222 

2N3906 

2N3S04 

74LS123 

74LS04 

74LS138 



Of course, it should be understood that a wide range of changes and modifications can be made to the 
preferred emt>odiments described above. For example, the transducer could be of a type other than piezo- 
electric such as magneto-strictJve. electro-strictive. and electro-mechanical. II is therefore intended that the 
foregoing detailed descnption tse regarded as illustrative rather than limiting, and that it be understood that 
it is the following claims, including all equivalents, which are intended to define the scope of this invention. 
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cm it.Bso(o,0]t 
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'itart frt|«Mqr • 
'ftort UfUtoit 
'start tlrob* Ofll«T 
'lUrt ytlu vim 
'ttort rlu tiM 



am ii,iiEni(S,eh 'itan u\\ uu 



mn ii,KEi»a,ni 
mm u,xo(u«ii,nt 
nun ft,Ron»ti,ut 
Htm ii,rcKfftto,iit 



*ttxt caftCMtratiB 
'tUrt tftAsilT 
'itori vlicstttT 
'ttort tirfan tfuleo 
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*tfeM tith UU nu 
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OAU 0238 
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OUl 0739 III: 
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VOL *KUII.IUP' FOX lX?Ut IS II 

IiruT ItfRDUOmi *rfi4 lutbK of yitttrii it 4ir 

n ■ It *ut tfltrr ^lotir 

LIVE IKPUT II,Ui 'rui tut pittrra atu (ru iir 

IF It * KUJtt4,ll TKO HTO SU)O.HJC: 'cuMrt am tith Iir titry 

n • 11 ♦ I 

IF IX < (REAWKX « 1) TKEX SOTO SLCCPi'ciici for deat 
CLOSE II 

KTun 



'rtttm nth ao chiAft to nit riafnt callkrata 
CLOSE I3t* clMt coa chuMl 



0228 132 
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IF KMUX ) S TD ICTUBi 

fBnm • nsi 

8aTITlIC • KVnUE - DLOTIK 

OLiTis • mnic 

IF BaTITlS > 0.1S DO KULU • 1 OSC HULH • lULTl ♦ 1 
IF mJl > 100 DO lULTl • 100 

IDU{1IO<V1,0) • fOUtROm.O) « ICU0lEnJl,3) i RJLnt *atfd iacrtMtt 

IF Boai(Rnux,oi > R&Qi(nEwi,n xm kwuqxui,0] • KiuiR£m,ui 'cIki an tUu 

COLOlt lS,|]CQSni SlS^AOUtKnUtli 'tfcaa an nlu 

>rattM •-• Iff 

IF noon. > S VCM KETVU 

tfvTixc • Tina 
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0n3 0234 

Om 02J4 

Ont 0234 

0FB8 0234 

''^ OFBB 0234 

OHB 0233 

OHB 0238 

0F9B 0Z3B 

m\ 0238 

OFSt 0238 

cm 0738 

1019 0738 

104F 0238 

104r 0738 

104F 0738 

gjlOU 0238 



SO 



jaTATiK ■ wnm - olbtire 

IF 8aUTIK£ > 0.15 TKD( KULU • I OSE HLTl • WLH ♦ I 
IF WJlTt > 100 no RULTl • 100 

BOTIUQCJI.O) • K»JIRD(W,0) - fflUCXDWltS) • IWLTl: 'wb iacrtml 

ir FiautiiDwi,oj < iiorotrou:.:j wa roaironn.o) • iooiiREKUX,2)t 'ciKk tis niit 

count 15,IiS0S0I OlSWDQIiSnUttt 'i^o* aw 



'prectii «» UTW IfT 
IF raw EM 4 • 0 VSM t ZTMi 

oiFH • -hsosia BmowiRFnsai 

'proms den trrei Ity 
IF HDWI mo * • 5 TKEH CTWJIt 
DIFFl • hSOSm lEVKOtUtRnmi 

IF mtnoTji / 4> « 0 TKOi munt 
BiFn * -&:ctrji trarxiiu:um8t 

'precfss ri^fcl ats* kty 
IF IKTtROnj: / 4> ■ 2 THCT miM 
BIFFl » 4:60SUI SEVROWiKmiWli 



'U tap rev tlrtidy 
*fovi poiDitr ip ODt 



*!■ kattu rm ilriidr 
*uYt peiotir tfo« eat 



ltd Cblui Alrt&tfy 
*tOTi poiottr oat left 

*{■ ri^ht celutn Alrtidy 

'•0VI poiatK OM rigbt 



•iflpal \rt% iolo KETWFJ Batil <cr> it uittrtd 

IF Ronn > 10 TKEx anu»* 

LOCATE n.30:Ca0il 3l.0:Ht«T WD m VAU£?;,a!L« 13,0 

rmuFt • ftt 

¥H1L£ AS <) Daril31 

iCCAIt I5,47:PRIiiI Sf4C£f{15); 

LCUTE 25,<?iP«iw tnmii 

AS • 

WIU If • " 

IS • iBcnt 

IF ACTlVll • I am: OCIOTIU ( TIHEIt THEX BQSUS PDt.fiDn 

VDQ 

IF At • oiMiB) as lEntETwn > 0 THEM cmuFs • uniuniuFi.uinixnuFii-n 

IF Al > CmiZU AJtO UMUXTISFt) { 13 THEM OYBUFS • CTTIUFI * Af 

VEXO 

IF RWUl > 5 TKEM fiDTO STtlJlESTlIMS 

TEKF « VALtcmurt) 'tfftp Ut Tilw of trj% inpBt 

Vottfld oH tfsf Kcsrdl»4 to tiip tilt It ttto trrtf 

TEX? « IMTITC7 / tiaKU(K£!nji,3i) « .3) i nEiutnoaji,3i 

*ttft UfT for tuitu ud tiofau tiUm is itAt trrtj 

IF TOT ) KOTJWDnn.ll THOl TERP « IESU(IIEMJX,l) 
IF TEAP < II£U}1A£XU:,3) TK£3t TEXP * KE)U(PIXU1,2) 

'itftft til vilvt iato ttflt arrtr mi uptfiti tcrtti 

BEKUIROrUl.O) • TDIP 

UJCATE :3,30:P1IMT S?ACEIl40li 
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10 IMS ens 

IMA 073 

ion e73j 

\m mi 

\m SZ3S 

loar 0238 

10E£ ITU 
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ton tfrx 
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20 im 92Si 
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t73A 0738 

I2SA 0738 
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1758 0738 

mi 0738 
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tUI 0731 
1741 0738 
-1773 0738 
1283 0731 
1783 0738 
1293 0738 
ITU e73A 
1711 0738 
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1281 0738 
1788 0738 
13C8 07» 
tTCa 0738 
65 >2C8 0738 
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TS 



1B73 

ins «:44 

tB04 0344 

im 0244 

tWl 9244 

IfU «2M 

tT&4 0244 

1173 0244 

im 03U 

IfU 0244 

tnr «2M 

0244 

tm 0244 

m 0244 

ITS 82«4 

25 t»2 0244 
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lAOB 02U 

11124 0244 
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30 1AS7 024i 

lUf 024i 
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im 02U 

35 1M2 0241 
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lADC 024i 
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tAFi 024* 

'90 ISO! 024A 

ins 0241 

1122 024C 

IKT 024C 

1I4F •24C 

mf 024C 

-'S iiTT 02fC 

mi 024C 

im 024C 

ll?3 024C 

im 024C 

tm 024C 

50 tiu 034C 

lia 024C 

lia 024C 



lECATE mm 4)4347, t]nuiEKIZ;i1«28«2J»15>lVT(lSaa/l2] 

If HcXDl > 3 TISI (OTD SHOlSTIIIfii* n Tt]tt to Ut^ltf 
XJKXtt (XOOI an &l«2*7,HEnJtBEKat41 

nm osivs BEsufiiia(ui,iitiiaai(SBa,e)| 

IF sm > 2 THEM Kmax 

ON Roosti sn.Fcn, sn.ii?, sn.0QAT 

BETUn 
SOSTSIVSi 

IF BOWl > to TKD KTW 
mm (RDCDl RQfi il«247,4t 

Win • 

LouTi iBonn nn i)i2«7,4i 

PSIXT REIUt(n£An,t) 



Sn.FKQ: 

CALL sn.MT.witrrtKPJj 

lOI ■ 3-IWtlTOtf4300)/J0Ml 
IF L£fil < 0 TKO( L£fil • 0 
sea « 4 ♦ iiBX • 12)t 
CALL SISITAL.OUTlSailt 
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SCTz « ci)rr(KD(U(KD(u:.9t • / i3di: 

IF Sm • OLfi.AJV^.VALUlI TKEI imSX 

TTKPi « sea: - ou.w.v«.tin; 

DJ.Utf.VALUC ■ SCSI: 
SlC.VflU • I 

IF Ton < 0 XVDl DU.VAU - 3 
TEK?1 • ASS(T£1^1) 
FW II • I 10 TOW 

sen • DICVAU * i32iLm) 

CAU DisnAL.Dintsaai! 

son • 4 « (33 « L£0X1 
CALL OlSITAUOmtSatlJi 

KETUa 
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(ATI 'Slraii OiUy 
BAT* *Pullt lilU 
MTA ntifl Till 
MTI *F«U Titt 
UTA •Um',",O,O,0,0 
MTA •Caac»lritioo',",0,0,0,0 
OATft '»tuitT'/',9|0,0,0 
MTA •ViitMtly',"|0,0,0,0 
DATI TtMioa',"|0,0|0,e 

UT« 'STWT\",e,O,O,0 
MTA •UW,"|0|0|OiO 
MTA 'SAVf,",0,0,0,0 
MTA •Dn-,",0.0,0,0 
MTA ",",0,0,0,0 
HTA ",",0,0,0,0 



lATt 3,t,21t 
DATA 3«2t,210 

im :,fc^2io' 
OATA s.uin 

DATA S,:i,}Ok 
DATA 5.M.30i 
DATI S,BO,llt 
DATA lf,l,in 
DATA 11,28,201 
DATA t1,ll,70« 
DATA lt,M,2S7 



gx*,Mi,tir ,10000,1,1,11 

9 •,'lir,l30,0,l,l1 
•S','ll,m.tMSt1f.9,.S,.S,14 

•,Mir,tn,o,i,n 
•,'m%m,o,i,H 

•/llf,W,0,l,l1 
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0030 OO0& 
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RfiQut 3tl Prialfir ' [ 

PUtwtt EnlrY/toflUicjtion lOMiilJ 

Off«l 0*l» Sctrc. Un. IW Ptrscn.l Cotputir BWIC CotplUr V2.00 

0030 OCOfc m nnUi-Beicent Jtt Prinltf ISUBTlTUfmUrn Entry/todif 

0030 0004 'nOOOf - •PRTDa* Pitttrn crtition, .odWicttioa, ud filing 

0030 000& 

0030 0M4 'wniica - h. ft. e«voW 

0030 0004 

0030 0004 -CCPTaiEKT it) 1985 ftSMH UBDilATORlES 

0030 0004 • - . . 

0030 0004 -REVISIOI - 1.2 D3-10-84 HAE Retott Rouse inputi 

0030 0004 • 02-2O-B4 HAE Add BO p»lltrn liiil to sive 

0030 0004 * 1.0 01-13-84 HAE Creition erf initial code 

0030 0004 

0030 0004 'STSTEn - This code un only be cotpiled by the BASCtm 

0030 0004 • COBPILER, it will not run-uflder the IHTERPRETER! ! 

0030 0004 

0030 0004 'OISOtlPTIDX: 

0030 0004 • Tbis iodule »llo« thi ysir to lOAD, SAVE, DlRectory, D 

m ud 

0030 0004 • enter repeit count *nd othrr ptratcters for i pattero t 
0 be printed. 

The lov-rcsolution grtphics node is selected ind a lenu 
is displayed 

0030 0004 • across the bottos ol the screen, Usinq arroi keys 
0030 O004 • point the action to be taken and then invoke that ac 
tion aitb the 

0030 0004 • Enter key. In the DRAH •ode, mother »nu is 

0030 0004 * dispUred "huh allocs the u«r to select 4roa LlIiE, RE 
CT angle, 

0030 0004 ' Solid RECTingle, or CIRClf pattern eltienls. 

0030 O004 

0030 0004 'lATA DICTIOKART 

0030 0004 ■ 5CK0ATlt50,5) 51 Ro. lElnents) by 4 Colutn array f 

or storing pattern eleeents 
0030 OCU • CURS0RX191 Storjgt for cursor graphics icon 

0030 0004 • BEKUSt4) Up to 7 aenu naes can be saved here 

0030 OC04 ' ELKUHI Count of nuaber of eleaents in a patt 

0030 0004 • n n Current location ol graphics cursor 

0030 0004 • roifi Value of one dot space on the screen 

(dr4attlt is O.005M 

0030 0004 • ROW coil Location to print instmctioni 

0030 0004 • « Storage lor single key-strokes or inp 

mt strings 

0030 0004 • KEVUMUH «iich nenu is being displayed II or 2 

O030 0004 • nsn Pointer to nhich tenu itei is highUg 

hted (0 - 4) 

0030 0004 • REPEAH Muiber of tiaes pattera is to be repe 

ited vheo printed 

0030 0004 • lOTT YOFF I uid Y ixis distance between the pri 

nting ol repeated patterns 
0030 0004 • RObSP C0L5P Ro» and Colutn spacing lor printing ■ 

ultiple sets of p*tterns 
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PiUK* talrt/ltodifUaUon 07-03-fii 
OHsit CiU Soorci Liot IBH Prrsonal Coipattr BftSIC Coipilir V2.00 

OOjO CC0£ * FATUBtZ - Kuaber of pittirns stored in 

the patttrtt dirtctorjr PftTDIR*RJP 
0030 0006 ' tfiSil OCCLI Ron and CoUan locatioa to display dl 

rectory totryf 

0030 0006 ' KAK£> Pattern aaai to bi UAStd or SMti to 

dirKtory 

0030 0006 ' II 31 Coonters uitd to LOAD or SAV£ the elt 

Mnt data froi/to pattiro data file 
0030 0006 ' FIL£I Rau of patttra data fill 

0030 0004 * TDPX Vhich type of eliaent is biiag drasn. 

1 « Uii 2 " ftectangle 

0030 0006 

:3 > Solid Rtctaflgle 4 • Circle 
0030 0006 ' FUSl Saae at TERPl above 

0030 0006 • STARBSst DiOnSSJ Rcssage display for stirtpoint ud en 

dpoint of eliitnt entry 
0030 0006 • 111 til St»rtiR9 corior position for 

elcient bcin) drua 

0030 0006 • on Oelta I and T valufs used to 

rt-posltlon cursor aftir arroi key 
0030 0006 • HWITO The highist nuibtr itit in th 

e current ecnu display 
0030 0006 ' IS I£ Starting ud endiog X position of the 

•eiM bigblightiaq blue bos 
0030 0006 • RAOIOSl The calcolaled radius of .a ci 

rclc to be displayed 
0030 0006 REH 
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nitgeflt Jfl Prinltr 

Pilttrn Entry/Rodificatioo 07-0M6 

SoQXt Lint IKI PtriMtl Cflipotir B^IC Cotpilir V2.00 
SUB PATHmtY STATIC 

VIOTH 40i5OtEDi 1:05 
m SOaATIt50,5),CURSmi9),HEKU*(M 

Qjfimz " otxi^in*os6Rio « o.oos 

LIKE (0,0)-(6,M„B 
LIKE (0,3)-U,3),,B 
LIKE n,0)-(3,&)„B 
PRESCT (3,3) 

EH (o,o)-u,&),ctntsaKi 

OS 

LIKE (0,0J-t3l9,1901,,B 

RESTORE IKSTtUC 
FDR l«l TD 4 

READ ROn,CQa,AI 
LOCATE RDHl,COa:PRIKT Alj 

KEH I 



Offut 


Oita 


0030 


0006 


0047 


AAA t 

000b 


0047 


AA A C 

OOOft 


OOSF 


OOOo 


OO&O 


029A 


OOTT 


At* • 

02A4 


007F 


AA ■ I 

02A4 


OOAl 


02A4 


OOCS 


02A4 


O0E9 


02A4 


OOF? 


AAA ■ 

02A4 


OIU 


02A4 


OHO 


02A4 


01 ID 


vim 


CI4C 


0aA4 


A* aA 

0140 


02A4 


0147 


AAA ■ 

02A4 


OlSl 


A A M t 

02A4 


0U4 


02AC 


0180 


AAA 

02AC 


019B 


0230 


019B 


O2B0 


OlAO 


02E0 


OlAA 


A A A A 

02B4 


OIBO 


02B4 


OIBO 


02B4 


OICO 


02SB 


0100 


02B8 


OlDO 


02BB 


0105 


02Ba 


OlDB 


02S8 


OlFB 


02B8 


021B 


02BA 


0235 


02SA 


0255 


02BE 


0272 


02BE 


0292 


02C2 


0296 


02C2 


029B 


02C2 


02B2 


02C2 


02fi& 


02n 



FlRSTi 



REKinOffl * 1 
60SUB SUBKEXU 



DM ITEH ♦ 1 GOTO PATOtR, PATIOAB, PATSAVE, PATBRAV, REP 

EAT, PATOT 

BOTO FIRST 



REPEAT: 



B05U6 ITEKBDXERASE: 'trait blut boi iroufid DIS 
LOCATE 25,1:PR1NT 5f>AC£M39); 'tr»t ttnu Unt 
LOCAH 25,3: INPUT; 'tftier Rcpeit Count '.REPEATl 
LOCATE :5,1:PRIKT ErtCEM39J; 'trist itna line 
LOCATE 2;,l:lKPUTj*Eriler X Axii Offset "jIOFF 
LOCATE 2S,1:PR1KT EPACEtt39)i 'trisc lenu lint 
LOCATE 25,l:IKPUT;^Enttr T Aiii OHsit 'JOFF 
60TD FIRST 

PATHTi 

HIOTR BOxSCREDt 0:CLS 
UIT SUB 
REH fPAGE 
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0 2S8k37„ 



5 



TO 



25 



35 



40 



Rfiqwt at Printff * 
P4tt»rft Entry/Rodinutiw 

Sottfci line I3K Ftrionii Cotpattr BASK Cospiltr V2,00 



45 



SO 



Of tttt 


DILI 


0ZB6 




02BB 


02c: 


02C1 


02C2 






o:f 


02C2 


ATA t 








AW A 

0330 


Air J 
02U4 


0330 


02C4 


0335 


02C4 


0344 


02C4 


03SB 


02C4 


0364 


02C4 


03A9 


02C4 


03A9 


02C4 


03C3 


02C4 


03C9 


02C4 


03DC 


02C4 


03DC 


02C4 


0401 


02C4 


0401 


02C4 


0<0& 


02C4 



PATDIR; *li«t dirtctory oi piUerni 

SaSUB ITCTEOIERASS: *tra« blut boi vouad DIR 
16 02CI 02C2 lOCATE a,l:PfiI»T SPACE$(39); 'iriw iifio lint 

OPEK 'PATOIR.RJP' FOR IMPUT AS 111 'opM direttory 

nit 

INPUT It, PATKUnit 'rttd DUftbtr of pitttrns in dir 

tctory 

20 0301 02C4 LIKE {X,l)-t3lB,lfl9),0,BFt 'trase gr»phici tabltt 

I ■ Oi 'set counttr- 

DISLOOPt 

1 « 1 4 h *sit IftT Btxt value 

IF I > PATHUni ma 60T0 DIREXITt *ttst (er dont 
IF IHT((M)/44) <> (I-l)/44 IKEN 60TD SHOVKin 
IF lin((l-U/44) < I THEH BOTO SHOHHEn 



30 



LOCATE 25,1:PRIHT •nofi to Diiplay. Continut ? (T or M) 

SOSUB CORLDDP: 'nkii for Y or N rtsponft 

IF Af " 'K* THEN GOTO OlREXITt *i( N thin don't contin 



im tl,l)-(318,lB9),0,flF: •trajf graphics tablit 
5M0VKEIT: 

DROVI s ((I - 1) HOD ::i 4 2: 'calculate row itr disp 

0«22 02C4 DCOLX « 4: , 'set coluM to 4 

0429 02CS IF (d * I) ROO 44) > 21 THEN DCQLI > 23: 'reset coluin 
ii ntccstary 

044C 02CB 

044C 02Ca IIICE IHPUT II, Al: 'riad neit naie Iroe directory 

0439 02C8 LOCATE 0KflUl,0COLI:PRlKT Al) 'PRIKT ItAKE 

0475 02CB 6010 01 SLOOP 

0479 02Ca 

0479 02C8 DIREXITi 

047E 02C8 CLOSE II: 'tirisftitt access to PATOIR.RJ? 

04BS 02CB OTTO FIRST 

0489 02C8 

0489 02Ca KEH IP«E 
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^ - , _ " ^ , . 



n 
o 



07-05-B4 

Onm UU So.rct Liat PkicmI CoM«ilir BASIC CoipiUr V2,00 



Rttqeftt Jet Priotfr 



0489 OM fATlM: 

04B£ Olta SQSUB ITEHSOIEWSEi 'trKe bluf Doi ifoufld DIR 

KCa OPW •pftTDIR.WP* m IKPUT AS II 

OxO IRW ll.PATttJHl: 'reid •utber of pUltrns in iw 

0«7 COT CtJSUB fiETXAKEi 'pretpt for and input pitttffl n 

uc 

02C8 iraE a,l)-nie,l891 ,0,BF: Vm. graphics tablit 

04Ei OxC9 60SUB SEARCH 

04£B C2C3 _ 

04CB OOT IF IX < tPATvma ♦ u DO roro fbukd 

0*FC 02CA UICATC lO,li-(l£NlHAnE«in)iPRlKT RAKEt;' not Found'; 

0531 OJtt UIWTE 12,H:PRIHT •Strike Any Key' 

054B 02C£ 60SUS AKYKEY: '■ait fcr a kiyhit 

0531 02a WTO RRST 

0555 02CE 

0555 02CE FBUHD: 

055A 02CE FILE* « RIBHTttSTRMU) ,lEM(STaj(IlI)-U ♦ 'PALRJ?' 

057E 0202 OPEM FILE* FOR IKPUT AS II: 'stt pattern data Hie 

for read 

056F 0202 INPUT ll.EUnmi: 'read ouaber of aleaints io pat 

tern 

IKPUT IliBRlO: Vwd jrid size 

IHPUT ll,RE?EATT: 'read repeat count 

IKPUT IlilOFF: 'rtad i axis oM$«l lor repeat 

IHPUT ll,TOFF: *read y aiis offset for repeat 

FDR 11 s 0 TO aKUni - I 
FOR n = 0 TO 5 

INPUT i;,3:!;:A;ini,:i):'reid nie into screen 

array 

REIT Jl 
REIT IX 

aOSE II: 'done «ith data file 

OPEM •PATOEF.RJP' FOR ffiJTPUT AS II 
PRIXT IliFllES: 'save filenaee in defau 

It file 

PRIKT ll,RW!£J: 'save the directory nai 

e as veil 

aosE n 

GOTO RESRAV 

SEUlOft 

11 « li 'set entry pointer 

SLOOP: 



05A1 


0202 


05B3 


0202 


05C5 


02&2 


0507 


0202 


05E9 


0202 


05E9 


0202 


osn 


0204 


05FO' 


D204 


0^21 


0206 


0&31 


0206 


0643 


0206 


o&u 


* 02fi6 


064A 


0206 


0&5C 


020& 




0206 


0&7C 


0206 


06B3 


02S6 


0&S3 


0206 


0667 


0206 


0667 




OiSC 


0236 




0206 


0&9B 


0206 


06A5 


02D6 


0693 


0206 


06C1 


02&6 


0604 


0206 



UX^ IRPin II, A$: 'read aeil pattern naae froi di 



r 



IF AS « KAnEI THEN GOTO SEARCH-EHO: 'coapare naae ■ 

itb dir entry 

11 * II ♦ I 

IF II < tPATKUni * U THEH GOTO TlOuF: 'check for dont 
SEARCH.Eini: 
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ReiQcnt 3fl Trinter 
PatUrn tnlry/RcSificaliw 

OHiei lita Scarce Line 



06C4 



aDSE II: 



07-05-86 
10:Utl3 

Fcrtontl Caiouttr BASIC Couller V2.00 
'not found so close lile and disolay tt 



ssaqc 
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Rti,eat 3.1 Prinl.r J 
PatUra Entry/llodifKalioft I0i4iil3 

OMs.t Ml Sodfctlm Pirsooal Cotp«lfr BASIC Cotpilrr V2,00 

06E4 02Bi PAnAVE: ^ . 

02Dk 63SUB imWlKASc: 'tnii blut bot around OIR 

OfcEF 0206 IF ELKWl - 0 THOI 60T0 FlRSTi 'bo tUiwts is pattira 

OfcFE 02D4 C?D» •PftTOlR-WP* FOR IWVT « 11 

070F 021>i IHP^ ll,PAU"UKl 

OZtk IF PftTHURl < 80 THQ* GOTO SAVE.PAT: 'dirtctDry Ull 

at 60 palltm 
0730 02Di CLDSE II 

0737 O206 LOCATE 25,l:PftIKT SPACEimJ;: •«-»• »»ottoi I 

0754 02fli UJCATE 25,l:PRI)rr •Dirtctory is *uU (BO pitltrn* tax)' 



07iE C20& BOSUB AHYKEYiEDTD FIRST 

077B 02Di SAVE.PATi 

077D BOSUB BETXAJlEi 'proipt lor and 9tl paltrrn aaie 

0783 02D6 BOSUB SEARCH 

0799 mh IF n > PATKUHl THEM BOTO M)D.HEH,PATTERH 

079A mh LIKE ll,n-l31B,189),0,BFi 'trast riphics labltt 

07BF 02Di mCATE lO,13-(L£)ili;«»»/2J:PRlXT KAIlElj' alrtady tint 



07F4 021Ifc LOCATE 12,15:PRIMT 'R^plact II?* 

OBOE 02I)i PATHUHl ■ II 

0B15 02D& W - " 

OBIF 02DB WILE Al « - 

082E 020i W • ^^^^ 

0838 0256 

083B 02Di IF « ■ Cft At • 'i^ THEK GOTO SAVE.PATTERH 

0864 0206 BOTO FIRST 

0668 0206 

0868 0206 AOB.KEV.PATTESM: 

086D 0206 Kill 'PATOIR-CLO': 'delile old backap diriclory 

0874 0206 •PATOlR.RiP" A3 •PATOIR.DLO': 'save old dine 
lory 

087E 0206 ' OPEK *PATOIR.OLO* FCR IXPUT AS II 

08BF 0226 OP^** •PATuIR.Sj?* FCa MTrUT AS 12: 'let up nt* dir 

08A1 0206 I^U^ IliPATKUni: *r»sd nuibfr of dir intries 

0BB3 0206 PATXURl « rATKUK 4 j: *iflcriasc by I 

OBBC 0206 WITE l2,PfiIKU(a: 'late in dm dirictory 

OBCD 0206 FOR 1=1 TO PATKUni - 1 

06E6 020A LIKE IMPUT tl,Ati 'r»ad entry froi old dir 

0BF3 02BA ^^^^ 12,*!: 'arlte entry in otv diriclory 

0903 020A I 

091E 02DA P^I^^ l2,KAK£Si 'tritt niv tntry to niK diricto 

nr 

092E 020A CLOSE tUCLOSE 12: 'done «ith directory 

093C 02IIA SAVE.PATTERH: 

0941 02DA FILEt « RIGHTS ISTRf IPATKUKll ,LEMi5TR$lPAT>amiM -I) ♦ 'P 
AT.RJP* 

0965 020A BPQ* FILEI FOR OUTPUT AS 11: 'crtitf nev pattern dat 
a file 

0977 020ft Wll^ •l,£UMUHl: •store naiber ol clciints 

098B 020A WIU IliBRlO:, /store qrid diamioa 

Q„8 (J20A 'jaiTE »».REPEATl! 'store repeal count 

09ft9 02CA WITE II,10FF: 'store x aiis oHset <or repeat 



0 2€8 237 



R«a9int Jet Prtnttr 
Pattrn Efttrv/RcdifititiM 



Offset 




cm 


o:sA 






0907 


02fiL 


om 


o::c 


OAOO 


C2:c 


OAtO 


02IC 


■cm 


02DC 




c2d: 




02K 


0A4B 


02SC 


0A5B 


02SC 


0A62 


02fiC 


OA&fr 


02^ 



PASE B 
07-05-Bi 
10iU:t3 

IbI Pcrsonil Coipattr BASIC Coipiltr V2.00 



*?.IT£ tt JCFF: 'stort y ixit Dflsel for repeal 

fOR II = 0 TO aSJItl - I 

fq;^ n ' 0 TO s 

VRm ll,SCl9ATiai,j:)t 'urite screen 4 

rriT U file 

KHT JI 
HEIT II 

aD5£ II: 'dont "^th )l4ti file 

CPtS •PAT^If .HP* PCX OUTPUT AS II 

PR1KT I1,FIIH: *"vt filcniic in def*u 

PRIST ll,Sai£li 'lave the directory nai 

t » nell 

OSSE II 

60TQ FIRST 
R£R tPASE 
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Patttrn Efltry/Bodificiliw 07-05-B6 
Offttt ^ti Smtcc tint I*n PKsoail Coipatcr BASIC Coipilir V2.00 









0MB 




eorjB JTE?CTD«SE 


0A71 


mc 


im (],l)-(3lB.189),0,BFs 'Eratf graphics Ubltt 










02rc 


IIETTIL: 


OA?E 




« 2 


0AA5 


mc 




OAAB 


02dC 


• 


OmiB 




CK ITEH ♦ 1 £310 ALIKE. REH, SBEH, ACIRCLE, ^RAV, B 






ATKUP 


OACS 




EOT? mm. 


OACB 


cm 




OACB 






OADO 




60SUB UETtBOlERASE 






60nJ FIRST 


OAOA 


02CC 


* 


OAfiA 


0^ 


ALIKE: 


OABF 


021^ 


TEKPI « \ 


OAE& 


02:e 


sTARPissi ' 'start:ks oiwoikt 


OAFO 


02E2 


mm% = '0101116 Di&POIHT • 


0A7A 


cm 


BOTO EKTERaEKEKT 


OAFE 


a2E£ 




OAF£ 


02E& 


KEH: 


OB03 


02E& 


TERPl « 2 


OBOA 


cm 


6QT(} REETnSB 


OBOE 


cm 




0B9C 


cm 


SRICT: 


0B13 


cm 


'tek?i « J 


OBIA 


cm 




OBIF 


C2lh 


. STARTnSBi = "STfiRTJ-SS CCRKEB' 


0B27 


cm 


EKCnSoi » 'EHOISS CCRMER • 


0B33 


cm 


SOTO EKTtrta&^DIT 


06^ 


cm 




0B37 


cm 


ACIRCLE: 


0B3C 


cm 


lEKPI « 4 


0B43 


cm 


STARiaESJ = •CMTER OF CIRCLE* 


0B49 


C2£i 


DCnSSS * *POIKT CH CIRCLE * 


0E57 


cm 




0BS7 


cm 


EXIERELEHEWT: 


OBSC 


C2E& 


eOSUB ITEK3QIERASE 


0B&2 


02E& 


aAEl«0 


0641 


OZEB 


LOCATE 25,l;PRm SPACE! 13?1| 


088& 


02EB 


LOCATE :5,1:PR»T STARTRSot| 


OBAO 


C2EB 


G05U3 MSPOJRSOR 


06fl& 


02ES 


FIKCSTART: 


OBAB 


02EB 


EOSUB XCtJSEAa 


obb: 


cm 


IF Af « CHR$t27) TH£)1 60T0 ABORT 


OBCB 


02E6 


IF A( ' CMRStU) THEK 6010 SHHART 


OBCF 


02EB 


60SUB CURSORrO\t 


0B£5 


02EB 


GOTO FIKDSTART 


OBEB 


02c8 


ASCRT: 


OBED 


02E6 


60SUB PLrCcCURSOR 


0SF3 


02EB 


60T0 KEITEL 


OBH 


02ES 
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ReiQcnt «(t Printer 
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OHstt 




0BF7 


02cB 


OEFC 


o:eb 


ocu 


02Efi 


oaB 


OIlC 


0CS5 


02EC 


0C5A 


02EC 


ouo 


02EC 


0C77 


02EC 


0C8E 


02EC 


0C94 


02EC 


0C97 


02EC 


0C9C 


02EC 


0CA2 


02EC 


0CB3 


o:ec 


OC°A 


02EC 


OCBE 


02EC 


0CC3 


02EC 


0CC9 


02EC 


0D32 


02EC 


0D3B 


o:ec 


0D4B 


02EC 


0D30 


02EC 


OD&A 


02EC 


0D85 


02EC 


OOAO 


02EC 


0D66 


02EC 


ODD& 


02EC 


ODEF 


02EC 


ODFB 


02EC 


ODFF 


02EC 


0E03 


02EC 



PAGE 10 
tO:Uil3 

lEH Ptriooil CoipQtir BA31C CcapiUr V2.00 



EETSUaT: 

IC:aTE tS.UFRlKT EVCaSSt; 
PJnol » TEIIPI:I11 « U:n: * Tl 
Jr OAS! « 4 THEH PUT (Xl*<,n*4» 

605UB ROl>SEACT 

IF At s CHRtt27) THEN 60TO CAJtCELR 
IF At * CHftniS) TKEK 60T0 SAVER 
60SUB a*RSCRnOVE 
eOTQ FIHDEMS 
CAJfCEiai 

SOSUB PtACEOIRSOR 

ON FUGI 60SUB EKl, D12, ER3, ER4 

aASi • 0 
eoTo NUTa 

SAVEEL: 

eOSUB PUCECUR50R 

IF FUBI « 4 TKEH ClfXU (IIIM.YIIM) ,5aRI(Il-Xll)*2*( 

n-YlX)*21„,il 

60SUB CORRECT 

IF Al»'«' THE>1 GOTO RctRft^ 

STOREat 



SCKOATKauUKXiO) 


« FIA5X 


SCKOATKaKUnift) 


« in 


5CH0An(ELXURl.2) 


* m 


sctcATKam,?) 


« It 


5CKSATHaWKI,4) 


• t: 


SCKDATKaKUnifS) 


« 3 


axuni s Eunmi * 


1 


aAGI « 0 




ESTO REITa 





Rtn tPAEE 
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10 



IS 



20 



25 



30 



35 



40 



45 



50 



55 



KttgtAl 


)tt Printer 


Pitttrti 


Enlry/Bocilicitioft ^7*^5-! 






IV* 46t 


(Kfftt 


DUa 


£carct Lini -B^ Ptrtooal ucgotrr 9Aau Coiotier YlJ 


0103 


o:cC 


hE^RAll! 


0E08 


C2£C 


cOHUS UEnSOIERASE 


OEOE 


02IC 


t tupit Ik.lTtfl tool A fiC 


0E33 


02£C 


IF EUCPfX * 0 TKE/i 6ulu KtlTtL 


OE42 


02EC 






02EC 


1*0 ID tUfUTU-l 


0E5B 


02F0 


OX £CKDAnn,0) GOSUB RDlt Ko2, 1a)3, k04 


0£B1 


02F0 




OE^C 


02F0 


SOTO Knia 


OEAO 


O2F0 






02F0 


*fiH4iif Sub-roatinis cilled by iiin todult 


OEAO 


02FO 




OEAO 


02F0 




OEAS 


02F0 




0EA5 


02F0 


LDCATt 23,1:PR1KT SPtCtSiJTit 


CEC2 


02F0 


OH nENUKUn 60SUB REKUl, IOU2 


OEOl 


02F0 




OEOl 


02FO 


FOR I'D TO 6 


OEBB 


02F0 


READ HEKUS(l) 


0EF2 


02FO 


LOCATE 25,tH&l*2:PRI)rr KcKUKI); 


0f76 


02FC 


KEIT 1 


0F4fc 


02F0 




OFU 


02F0 


REAO KAIITEH 


0F40 


02F4 


ITEn « 0 


0F57 


02F4 




0F57 


02F4 


KEVITEK: 


0F5C 


02F4 


EOSUB HEV1TE5B0I 


0F&2 


02F4 




0F&2 


02F4 


MEniTEK: 


0F67 


02F4 


BOSUB ITtTSEnRCH 


OF&D' 


02F4 


IF AJ = CHR1I131 TrEM BETTJRH:' ITDl h« corrtct val 


0FB4 


02F4 


IF im^t] < 2 TKtH o£EP:60T0 KtlTlTEn 


OF^A 


02F4 


IF ASClR:CJ;ftl, 2,1)1 • 75 THEN BuTO LEFTAR 


0FB6 


02F4 


IF ASC(ni0t(Ai,2,U) * 77 THEN E3T0 RI6HTAR 


0FB2 


02F4 


SEEPiSOTD REllITEfl 


vr • * 


02F4 




0FD9 


02F4 


LEHAR: 


orcE 


02F4 


IF ITEK » 0 TKEH GOTO KEITITEK 


OFEf 

vr 


02F4 


60SUB ITEHSOIERASE 


0Ff4 


02F4 


iteh « iter - 1 


1003 


02F4 


EOTO REVITER 


1007 


02F4 




1007 


02F4 


RIBKTAR: 


lOOC 


02F4 


IF ITER » RAX ITER THLN BDTO KEITITEH 


lOlF 


02F4 


60SUB ITERBOIERASE 


1025 


02F4 


ITER » ITER ♦ 1 


1034 


02F4 


GOTO KE'ilTER 


1038 


02F4 




1038 


02F4 


REXUlx 


1030 


02F4 


RESTORE Ml 


.1044 


02F4 


KETURR 


1048 


02F4 




1048 


02F4 


REXII2: 


104D 


02F4 


RE5TCRE RK2 



11 



38 



0 26C; 22T 
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Otfitt Uii Izjra Lioi 



07-0S-B& 

ISn Ptrtonal Cfiiouter BASIC CocpiUr V2.00 





o:r4 






02F^ 




1058 


02r4 




ion 


CfTFA 


Al » lKrnJ:IF Al <> TKD( ROTRH 


i07i; 




GOTO ITinSEAJO 


107? 


02F4 




lOBl 


OIT* 




108] 


C7r4 




10B& 


d2r4 


XS • (JTBMBl ♦ 7 


Wt 


02Fa 


U « (iTcXtAB) 4 B * lEK(RQtUS(IT£K))<8 


lOD? 


02FC 


LltS (I5,19n-{IE,m),l,B 


UOl 


02rc 


BETUCOt 


nos 


02rc 




uos 


02rc 


ITr^lERASE: 


tlOA 


WfC 


LIVE (IS,1?1)-(IE,199),0,B 


1131 


02Ft 




1135 


02FC 




1135 


02FC 


PUEECURSORt 


113A 


osrc 


PUT tiz*i,n*i),cuxscR: 


1157 


02FC 


RETURX 


115B 


02fC 




USB 


02fC 


RQUSEACT: 


lUO 


02fC 


60SUB AKTXEY 


UU 


02FC 


Oil ■ 0 : DYI « 0 


1174 


0300 


IF Al « CHRMO) ♦ 0^11721 THEH OYI » -URETURH 


1190 


0300 


IF Al > CKRKO) f Ci*U(80} THEM DYZ « 1:RETUHN 


11C6 


03M 


IF Al « CHRKOl * CbW(771 Tnch OH = 1:RETUKK 


llEF 


0300 


IF Al = CHRliO) ♦ CrjiiaSJ THEH Oil = -URETURN 


1218 


0300 


IF Al « '8' THEN DTI » -20:R£TURN 


1232 


0300 


IF AS = •2* THEN DTI « 20:RETURN 


124C 


0300 


IF At s W THEN on • -lOiRETURN 


12&& 


O3D0 


IF Al « *h* THEN Di: - 20:RniIRN 


12B0 


0300 


IF Al » CHRt(27) THEN RETURX 


1257 


0300 


IF Al s CHRt(13) THEN RETURN 


12AE 


0300 


COTD H0U5EACT 


i:b2 


0300 




1287 


0300 


CSSCRIQVE: 


12B7 


0300 


60SUB PLACECUR50R 


12fiD 


0300 


ON FUBI BOSUB ERl, ER2, ER3, ER4 


12CE 


0300 


n « 11 ♦ Dll » n » Yl ♦ DYI 


12£& 


0300 


IF XI < 0 THEN 11 • 0 


12F9 


0300 


IF U > 311 THEN U « 311 


130B 


0300 


IF n < 0 THEN Yl « 0 


t31D 


0300- 


IF Yl > 182 THEN Yl « 182 


1330 


0300 


01 FIASI SOSUa DRl, 0R2, 0R3, DR4 


13M 


0300 


ECoUB CIS?CUR5DR 


1347 


0300 


mm 


1341 


0300 




134B 


0300 


CORREH: 


1350 


0300 


LOCATE 25,l:fRlNT SPfiCElt39)i 


13&D 


0300 


LOCATE :5»l:PF.IKI MS THIS CORRECT? (Y or K) '} 


13B7 


0300 


CCRLDOP: 


i3ec 


0300 


GQSuB ANYKEY 


1392 


0300 


IF Al « 'y* or Al « 'Y' THEN Al « •Y'lEOTO CDREIlT 
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f kBE u 

Rtiqtot 4it Prinlir 07-05-Bi 
Pittirn Enlry/toflinciUon lOiUilJ 

OH«t 0*li Sourc. Lin. I5« P«"o«l Co.pal.r BftSlC Co.oil.r V2,W 

ISC5 O30O 6» • » fit . TO Al « -S'lSOTO OTEIU 

IJTB 0300 «T0 COaLOCP 

13FB OWO CSKtllT; 

uoo 0300 LOCATE a.umKT SPWXtn^J; 

141D 0300 '^ETUM 
1421 0300 

1421 0300 OlSPCURSORi 

142i 0300 60SUB PLAtXTJRSOR 

142C 0300 LDCATt I5.27SPRIKT OSIKS MLIirsIl t GRID; 

0300 ^^^^ 

1463 O300 WW US1N6 •*i.ttr;n t RlOi 

H3C 0300 RHURN 
14S4 0300 

1464 0300 

1489 0300 UH£tSCX0An«I,l)*4,SCH0ftUU,2)*4)-lSCWATTtI,3)M.Sa< 

0AntI,4)*4) 

1522 0300 RHVW* 
1S26 O300 

IkB woo LlKElSCXDAUtl,l)*4,SCK:An(l,21M)MSD«ATlll,3)*4,5CH 

DAna,oM),,B 

15C4 O300 JCTIRM 

15CB 0300 

S OW UKElSC«CAniI.l)M,SCK:ATlll,2l44).|SCKDAnil,3l44.5CR 

tAn(I,0*4»,.BF 

IW7 O300 ^EfJRN 

U&B 0300 

iSo 0300 RA01l*Sl = SCRUSDi:ftTi:i,:)-SCKDATl(Mn*2* (SCHDAni 

i,4i-SManii.2))"2) 

UFF 0302 CIRCLE (5C)IOATl(I,lJ*4.£tHDAniI,2)Ui .RMlUSIt.i ,5 

175D 0302 R^***^** 

17M 0302 

1741 0302 ORi: 

17^4 0302 (ni44,tii*4).(n*<,n44i 

17AF 0302 RETURM 

17B3 0302 

17B3 0302 0R2; 

17B8 0302 LINE am4,Ti:Ml-(ll*4,Yl*41 „B 

IBOl 0302 KTUW 

1805 0302 

1805 0302 0R3: 

IBOA 0302 LIKE (IllM,ni441-(ll*4,n*4)„EF 

IB54 0302 

165B 0302 

1838 0302 0R4! 

1850 0302 %iVS^ 

18&1 -0302 

IB&l 0^2 LIKE ailH,TUMl.(UH,nMl,0 

18AF 0302 RrrURH 

18B3 O302 



0 268 23^- 



1tfa;sat Jet Printer 
Pittirn Entry/Kodilicition 

Offset fiita Soarcc line 



mi 14 
07-03-86 
lO:Uil3 

iV\ Periofl*! D)*puter BASIC Coapiler V2.00 



TO 



95 



20 



25 



30 



35 



40 



45 



60 



IB63 

UBS 

1901 

1905 . 

1905 

190a 

1954 

1958 

1953 

1950 

mi 

19&1 
196& 
1970 
I97f 
1989 

i9ec 

1990 
1990 
1995 
1932 
19CC 
19E& 
19F4 
19FB 
19FB 
■ 19FB 
19FB 
19F0 
l9fF 
19FF 
1A04 
tA06 
lAOb 
1A06 
lAOD 
lAOF 
lAU 
\M 
1A13 
lAlA 



c:c2 

03 C2 

0302 

0302 

0302 

0302 

0302 

0302 

0302 

0302 

0302 

0302 

0302 

0302 

03C2 

0302 

0302 

0302 

0302 

0302 

0302 

0302 

O302 

0302 

0302 

0302 

O302 

0302 

0302 

0302 

0302 

0302 

0302 

0302 

0302 

0302 

0302 

0302 

0302 

0302 

0302 



K2: 



21AF 0302 



CR3: 



UK£ lIi:*4,Ti:M).(m4,Ylt*l ,o,b 
RETURN 



LIKE (li:»4,TllMI-(XlM,n»41 ,0,BF 
RETURN 



RETURX 



AS 

¥H1L£ A* « 

Al > IKKEYt 

RETUM 

EETHAKE: *proipt for tnd 9et filcnite 

LOCATE 25,l:PRm S?ftC£M39J; 
LOCATE 25,38:PRIirr 'boundry chevron 

LOCATE :5,1:PR1KT •Eftttf P*ttera Nate 
LIKE IKPUTi •■,NAIl£l 

REmx 

* Oata ficldi used by this todule 



KNlt 



nN2: 



DATA •0IR'/LCA0'/S;vE\':RAK','REPT','E1IT','*,5 



OATA •LI)i£'/RECT','cRt:T\'CIRCl','RE!JRS'/nAlH',",5 



INSTRUCi 



DATA 8,U/USE ARROMS' 
OATA 10,9, 'TO SELECT FRCR THE REHU* 
OATA 14, 12, 'USE THE E.HTER CEY' 
DATA 16,10,*T0 ACTIVATE SELiniOJI- 



EXD SUB 



55 



50426 Bytes AvaiUbU 
43373 Bytes Free 

0 Barning Error Is) 
0 Seven Error (s) 
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KfUi-t Jr;5 PrtnUr^ ^. ; . ^ ,^ JkU \ 

hirr-l^om PCI-20000 cuito« drivtr 

08i38iU 

OHsfft Oati Sourct Uni IBlt Ptrsonil Cotputtr BASIC Ceapiltr V2.00 





WvO 


m fTlTU:'8iiowl Ui Printir' srJBTITl£:*lurr-Bro*n PCl-2000 
0 ctistoi drivtr' 


0030 


000& 


'HQOUU 


- 'PCr OriYir lor tht PCI-20000 I/O and PULSE cards 










0030 


OOCb 


'AUTHOR 


- n. 5. Fairchild of Coiputiag Archittcti Iac. 








U3 Fairfield Hay 


A AY A 

00^0 


AA Al 




Blooiinedalc. U 60106 


A AT A 

0030 


AAAL 

0006 




312/980^6777 


A ATA 

0030 


AAAl 






0030 


AAA ( 

0006 


•CaPTRIEKT (CI ABBOH lABDRATORlES 


AAT A 

0030 


AAAZ 

OvOo 






ntm t A 


tttitik 

vuvo 


'REVISIOH - 1.2* 12-16-35 flSF Add digiUl WO initiUzation, and 
output rootini 


0030 


0006 








AAA I 

0006 




- 1.1 12-10-B5 flSF Kove counter todulc to poiition 2 


0030 


0006 






0030 


AAA t- 

0006 




- l.O U-22-B5 RSF Cnatioa of iftilial code 


0030 


OO06 






0030 


AA A t 

0006 


"StSTEH 


- This code can only be cospiled by the BASCCH V2 


0030 


0006 




CCnPIUR, it lill not run under the 1HTERPR£TER<! 


A A V A 

0030 


AAAL 

0006 






AA^A 


AAAL 
VUVO 


•DKCRIPTIOK; 


VwJU 


VVvO 


CCffSS 


The PCI aodulc ts a Qroup of routines used to a 


0030 


0006 


austs 


the BURR-Brovn PCI-20000 board. The supplied toltvare c 


0030 


0006 


rividc 


the Hordstar2000 sott«ar« to iaHooction and vill not p 


0030 


AAA f 

0006 


iver$ 


explicit on, off functions for the counters. Custoi dr 


0030 


C006 . 




Mill be i«de to prcvidr all of the desired functions. 


0030 


0006 






0030 


0006 






00^0 


AAA 1 

0006 




Address Register 


0030 


A A A t 

0006 




IHCOOOO Carrier l.D. / loduli prtscnt (Rl 


0030 


0006 




IHCOO^O Rodule intcrruDt status (R) 


0030 


0006 




IHCOOoO digital I/O port 0 (R/Vl 


0030 


0006 




IHC0091 Digital I/O port 1 (R/HI 


0030 


0006 




lHCQ0e2 Buffer direction atid eoable (R/H) 


0030 


0006 




4KC0083 Control for ports 0 and 1 (V) 


0030 


0006 




IHCOOCO Digital 1/0 port 2 (R/Vl 


003O 


0006 




IHCOOCl Digital 1/0 port 3 (R/Bl 


0030 


0006 




IKC00C3 Control for ports 2 and 3 U) 


0030 


0006 






0030 


0006 




1KC0200 Read lodule 1.8. (lUO 1010) 


0030 


0006 




IHC0204 Rate generUor loit-oroer 16 bits tO) 


0030 


0006 




IHC0203 Rale generator high-oraer 16 hits (1) 


0030 


0006 




IKC0206 Counter 3 count register (2) 


0030 


0006 




IHC0207 Rate Qentrator/counter 3 control 


0030 


0006 




IHC0208 Counter 0 count register (0) 


0030 


0006 




tHC0209 Counter \ ccsnt register (!) 


0030 


0006 




IHC020A Counter 2 count register (2) 


0030 


0006 




IHCC20B Counter 0-2 ccctrol 


0030 


0006 




IHC020C Counter gate control (1 enables, 0 disa 
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r.lir PAGE 2 


Burr-ErcM Kl- 


rOOiO invK 06-30-36 






06i3b:16 


OH sit 




Scsrct tint I6X PersohAl CfltDuttr BASIC CotpUer V2«00 








0030 


00C& 


lit function 


003D 


OCOi 


* 0 Rite generator gitt 


0030 


OCOft 


1 Rate qineritor qttt 


OO30 


00 OA 


* 2 Coontcr 0 gate 


003& 


0006 


3 Counter 1 gate 


0030 


0006 


* 4 boufiter 2 gate 


0030 


C006 


3 Mfttncer d gavi 


0030 


^ A A J 

CC06 


* k Itftt acari 
0 HOL BsCD 


0030 


0C06 


/ MC ttseo 


0030 


A A A f 

0006 




. 0030 


0006 


• 


0030 


OC06 




0030 


0006 




003u 


WW 06 


* COtATT ~ Oirisor to 2I^z rate to give tfisired Irequinc 






y or tise 


0030 


0006 


COUNTKl * High order U oits of a 32 bit tftviso 


0030 


000& 


r 

uTukTuI - Loi order 16 bits of a 32 Bit diviior 


0030 


0006 


* LSBI - LoMer 8 bits of a 16 bit divttor 


0030 


0006 


nSEI * Upper B bits of a 16 bit divisx 


0030 


OO06 




0030 


0006 


* fUin line cede 


0030 


0006 


Thi aain line code is ocver executed. It's sole purpose 






it to 


0030 


0006 


' declare shared the variables that vill be ased io the subrout 






inrs 


0030 


0006 


* so that they vill all be cefincd and hold their values. 


0030 


0006 




0030 


0006 


Mil:. 


0030 


0006 


OIR EKAREO COUNT, C:'JNTh1,CQimU,L5BI,KSfiI 


. 0030 


0006 




0030 


0006 




0030 


0006 


eOTDRAIKLCQP 


004C 


0012 




004C 


con 


RIK tPACE 
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8orr-2ramfl fCl-xCCW caite* drivK oB:3aiu 
bus,* Soorct un. I" ftrwail Cwputtr B^SIC CwpiUr V2.00 

004C Mil 

004C 0012 'OnCJUFTiCX: 

owe 6312 • rci.lIlT Mirwliflt iftilUixts the PCI hvdniri, 

Q04C 0012 

OOC «12 E:5 PCI.WIT 5UT1C 

0053 0912 

0053 0012 ttF S£o » UtCOOO: Toiftl se^iwl to PCl-20000 board 
005A 0C12 

0054 0011 IKCI0C,1>»0: 'CUibli ill softirire iniblid coonter 

mz cou 

0063 0012 * Cxwnqttf e f »tt qimalBr to 2 raa 

00i3 CC12 ' . . . J , 

0063 0012 POJ^ IK0207,W34: 'Set lo« rati counlir to lodt 2 

006D 0012 POKE IK0207,IK74: *Stt hi^h rati counter to iode 2 

0012 POKE W0204,IH02: 'Loid Ui rati counter lith 16 bits o 
f 1 

0081 0012 POKE IMtOl.WOO 

am W12 POKS W0:O5,WO2: "Load hiqh rate counter -Ith U bits 

of 2 

0094 0012 PtJff IH0205,IHOO 

0090 0012 PO*^ IH020C,IH03: •Enablt rale counters 

«W7 0012 ^ ^ ^ . , 

00a7 0012 * ConUgure dot rait counters (default to 5 Khl) 

0CA7 oon , ^ 

00A7 0012 pert W02C3,IH:4: 'SH Uh dot counter (0) to tode 2 

OOBl 0012 Wr£ \K0*C8,l'H74: *3el at5h dot counter (I) to lode 2 

OOBE 0032 PCll lnv20c,lH04: *Uid loi rate counter Kith 16 bits 0 
* 4 

00C5 0012 pert IH02W,W00 

OOCE 0012 VH02G9/ji64: 'Isao bicb rate counter with 16 bits 

of 100 

0008 0012 Ut0209,lXOO 
OOEl 0012 

OOtJ 0012 ' Cflttfiowe dot puijt «tb one shot (default to 13 used 

OOEl 0012 ' 
OOEl 0012 PDfH lH0203,VKo2: 'Set cot pal si lilh oneshot 12) to lo 

de 1 

OOEB 0012 PCtI IH32CA,IHIA: 'load oneshot iiith 16 bits of 26 

O0F5 0012 POkE IK020A,IHW ^ 

OOFE 0012 

OOFE 0012 ' Coflficcre shifte4 sUobe pulse one shot tdefaoU to .5 usee) 

OOFE 0012 , . ^ 

OOFE 0012 \lr32C7,WB3: 'Set sMfled strobe onshot 131 to eod 

f I 

OlOS 0012 ^ U10206,*«Hvl: 'Load oneshot vith 16 bits of 1 

0U2 0012 porE lHO2O6,VH00 

out 0012 

OUB 0012 • Configure port 0 to output and port 1 to input 

OllB vOl2' .... 

OUB 0012 PO>^E lH00a3,iHB:: * Set up I/O chip 

0125 0C12 PO^E «H00B2,VH34: ' Set up direction and enable buffers 

012F 0012 POKE IHOOBOjlHOO: ' Dissable print head 

44 



0 2S8m 



.1 



> 1 



RBi^fT.l ill ^ifttir * 
Burr-tra.o PCl-tC'^CC aistat sriver Oi-30-8i 

08:38: U 

jaurci Lint leH Personal Cotauttr BftSIC CoapiUr V2*00 

EK? SUB 

'SUBrJUTIKt - COT. OR 

Tht OOT.CN subrotrtint enables the dot frtquenry counttr 

SCB W7,0X STA7IC 

Ktl U{020C,IKOF: 'Enible dot counters and rate ge&erit 

or 

eKD SUB 

ROl fPftSEIF;l2 
•SUBJ^miTIKE - DOT. OFF 

"OnnilPTICM: 

The DOT.CrF subrou -'t distbUs the dot counters 

SUB DOT.OFF STATIC 

POr£ IH020C,IH03: 'DisiDlt dot counters tnd enable rate 
qenerator 

DIP SUB 

tPf;6riF:<9 



Of^stt 


:ata 


ci:; 


ccti 


013F 




013F 


co:2 


013F 








013F 


ooi: 


013F 


oo:? 


013? 


con 


013F 


0013 


QIU 


0012 


0M6 


0012 


OlSO 


0012 


0150 


M12 


0157 


0012 


0157 


0012 


0157 


0012 


0157 


0012 


0157 


0012 


0157 


0Ct2 


0157 


0012 


0157 


0012 


OlSE 


0012 


015E 


0012 


oue 


0012 


0U3 


0012 


Ol&r 


0012 


OUF 


0012 
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KciQffnt 2ft Priater 

Burr-Brort PCi-ZOOOO twtci flfivir 

tHIcit Dita %=rtt Line 



oi&r 
our 

OUf 
OUF 
016F 

Ol&F 

016F 

Ol&F 

017& 

0176 

017& 

0176 

OIBF 

OlAB 

OlAB 

OlAB 
0U6 
01B6 
OICF 
OICF 
OICF 
OICF 
OlDO 
OlFO 
020B 
020F 
020F 
020F 

o:oF 

02H 

021B 

0232 

023& 

0236 

023& 

0236 

0237 

0248 

0263 

0273 

02B3 

0263 

0291 

02AC 

02BC 

02CC 

02CC 

0203 

02D3 



0012 
0012 
0012 
0012 
0012 

0012 
O012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
6012 
0012 
0012 
0012 
0013 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 



S-JBPJUTIHI - sn.SOT.RATE 
t£SC?.lPTlO)»: 

The sn.DOT.RATE lubroatine loids Iht dot rait ccunttr* 

■ilh the deiirtd dot Irequtncy. AUoKed noge is 10,000 to I 



ttz. 



• Tht FTIK pinuter i% i rul nuiber In Hi. 
M Sn.OOT.RATEtFREO) STATIC 
' Uait frtqincy to in ranqt 



IF FR£Q ( I TTOi FREB • 1 

IF ?m > 10000 im fkeq 



10000 



• Convert to count and checV Ur 16 bit count or 32 bit count 

COUHT s 2t6 / 

IF CWm < 65536! THlK GOTO DlVIDcl6 EL££ 60T0 DlVlOEi: 

* Process coant of 32 bits 
0lVlDn2:, 

COUHTVl » 1KTCCC01WT/3276SI) ♦ 111 'BtiQe lo»tr count 
COUKTHl » INTCCCL'HT/CCUXTIXI: 'Fori tioper coaat 
SOTO Sn. COUHT 

' Process count o< 16 bits 

DIVIuE16: 

CaiWTU • 2 

COUKTHl = IHTlCaWiT/:) 

EOTO sn.coim 

' Send the dcrxvea counts out to the counters 

sn.cauKT:. 

LSBl « CClikTLI HDD 256: ' Send out loi 16 bits 
H5BI * IKTiCOUHTU / 256) 
ml IK0206,ISBX 
POKE lH020B,nSBI 

L5BI ■ COUVTHI ROD 256: 'Send out bigh 16 bits 
HSn « IHT(CCIWTKI / 256) 
POa (H0209,L3BZ 
PQICE lK0209,n3BX 

EKD SUB 

REH IPfiGEIFj27 
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R«qent Jft Prirvltr JJ^^ 

Burr-5row» FCI-WOO ctisttm drivn ^f** 

08t38:U 

*;^-ct Lint IW Pirionil UioutK BftSlC Coepiltr V2.00 

•liCCSlIPTICX; 

Tht SCT.DOT.HIPTH subrootini loidt tht dot mdth one sh 

ot 

• .ith ttt disind dot pulse lidlh. Hlo«d ran^e is .5 to U,0 
60 usee. 

• Thf dtfidlh p»rii*ter is a nil (rniiir in umc. 
SUE sn.ZOT.MirTHtDVIDTH) STATIC 
' Li»it vidtb to iD ran^B 

IF wm < .5 TKEv mm » ,5 
IF mm > uooo tkex mm » uooo 

' CctYtrt to count 

ccukt » dvioth / .s 

' Sfnd the dirivtd count out to tht counter 

LSBI ■ liniCDUKT ROD 7ll>)i * Send out U bits 
RSBl « miCCUKT / 2S6) 

POIX VH020ft,RSBI 

DID SUB 

m frAS£IF:27 



Ut 1 11 V 






Wi-4 






02B1 


0012 




Ml? 












WW 1 & 






020A 


0012 


020A 


0012 


02DA 


0012 


020A 


0012 


02F3 


0012 


030C 


0012 


030C 


0012 


030C 


0012 


030C 


0012 


.03IA 


0012 


03U 


0012 


03tA 


0012 


031A 


0012 


0331 


0012 


0348 


0012 


0358 


0012 


03&B 


0012 


03&8 


0012 


03&F 


0012 


034F 


0012 
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Rci^int ]it PrlDttr 

Burr-Brem PCl-20000 cusloi drivtr 

OH set Oita Scorci line 



9tSi 7 

iUi Pirsonal Couottr of^IC Coipilcr V2.00 



03&F 
03&F 
036F 
03&F 



0013 
0012 
0012 
0012 



03fcF 0012 



03&F 

03iF 

036F 

0376 

037& 

037i 

037& 

03dF 

03AB 

03AB 

03AB 

03ft8 

03B6 

o:b& 

03B6 

038& 

03C0 

03E4 

03F4 

0404 

0404 

040B 

040B 

0403 

040B 

040B 

040B 

0<0B 
040B 
040B 
0412 
0412 
0412 
0412 
0423 
0423 
042A 
057F 



0012 

0012 

0012 

0012 

0012* 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 

0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 
0012 



SU3R0UT1KE - En.STROBE.DOAY 

The sn.STKCBCDELAt subrootiDf loads tht strobe delay 

Dnt shot 

Mith Uift disirtd strobe dtUr tiee« AUoirtd ruse is .5 to U 
000 oitc. 

The delay paraaeter is a real ouftber io dsk. 
SUB SCT.STKOBE.BafttlDaAY) STATIC 

* Uiit delay to ia range 

IF BEUY < .5 THOi BOWf ■ .5 

IF BELAY > UOOO THEN BELAY * UOOO 

* Co Avert to count 

CflUMT « BELAY / .5 

* Send the derived count oat to the counter 



Send out U bits 



tSBI > INTtCOUKT HOD mU 
HSBI « 1HTIC0U»(T / 25iJ 
POrE IH020&,LSBI 
POKE lH020&,nSBl 

EKD SUB 



R£A SFA6E1F:U 

•SUBROUTIKE - DISITAl.OUT 
•DE5CR1PTI0X: 

The BIBIT;l.OUT subrcutine sends the passed integer to 
the output 

port 0. 



SU9 bibital.out(byte:i static 

' Send tbe byte to the port 
POKE lKO0&O,BYTn 
END SUB 



S0426 Bytes Available 
4B723 Bytes Free 

0 Warning Error (sJ 
0 Severe Error(s) 
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n r\ 



Jit Pritltr 



ICX Nrftotil Cftuittr USIC CmiiIv V 



TO 



15 



20 



25 



30 



35 



40 



45 



50 



oo:9 
ocu 

003d 
00» 

oou 

0030 

oou 
oeu 
eo» 

0030 

00» 

0930 

0030 

0030 

0030 

0030 

0030 

0030 

0030 

0030 

0030 

0030 

0030 

0030 

0030 

0030 

0030 

0030 

O0» 

0S3Q 

0030 

0030 

ooo 

0030 

oc:o 

0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
OO30 
OO30 
O030 



0^04 
000& 

0:01 

0004 
OOOi 
0004 
WCI 

eaoi 

0004 
0004 

oeu 

OOM 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

O004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0004 

0904 

0004 

0004 

0U4 

0004 

eco4 

0004 

0004 

0004 

0004 

OOM 

0004 

0OC4 

0004 

0004 

0004 

0004 

0004 

0004 

0004 



- E, A. Carroll 

untu:rt CO ins unn uawToua 

CVISia - ^0 07-«-W W£ faiUUi for licrtfa rrlitbtri 
• Ut ^I'U VI Witt tU (iMl to«ck» 
1.0 e3-03-i4 Ul CrttitftA tl iiitlal codt 

SnTZE - T»l« coit tu orIt if tftipiU* »» til IA5C PI 

TWr priQliaq irtalt litpUf* 1 iHa la 3 coIuai « row m firtt 

nlaaA hit «*U »roa Ut <H«Il rmtnl frofiU. Tk< tttoiU coUaa feti 
««ta Irea Ihi <tUtU fiUtn lilt, na Uird tolaaa %n %\vdv4 pruliai 
tfaU. nt four irrfl* Ityt alloa iifftrwl tm iliai to It h>«ali«htt< ul 
tbt «!•»» CM bi cwft»td ■itb Ika ♦ or - Itr* or It tottriM t*t «tk aotair 
UUo«td by tflltr. f wU cwm tit fttltro to li ff utid, S aill iilKt Iht 
totBM^ t -ill tilt to thi ana profria. Oa Iht aottptl, *aif tift|U liaa 
tottrii fctrt viU b« «tnt to tbi priatir. « aall Uat tsitt Ut ootipad. 



VZBSl 

Dim 

XTTtl 



m 

n n 

sn sn 
ni m 
n n 

KTILXKI 
CHtt(17,U 

u 

miuFt 

PATOAI 

mif 



Vhicb tMa lilt is hifhlifbtH (0-17) 

Vhtrt 19 aevt aiao Oi^Might ii rciponit to arro> Itf 

Vhat tif has btta friitid ivriiq ui» tua 

Idt^tr of tUitots ia nrrtnt fatttn 

Arraf fo' itariaq tlcitntt itt csrrtnt lattKt 

CoftAtir for ripiit priatin) thi patttn 

Co3Attr lor ittfpii) Ibfouth tbt pattaro Array tfviag printtaq 

tjtfua ol cirdt «vib| yriatiai _ 

Ofltits <Br stut reWceUaa pofitiOB 

Kfptit diitiBcii for rtptit pnntia| ol pattint 

Sti/tinq 1 tai T positioat for lolid rKtaaolis 

EA«iM I aad T peiitieai for aeUi rtcti»9lt« 

CottBttri oit^ for rtidia) patttn lUis ioto Ui array 

ttfiittf for use. lattftrs 

foiotv to ibich liaa is actln U \U notipU 

fc-ray of ttriB|s ist4 to display ato« Ittot 

lia^lt btystrokt tapit tftstiaatlHi 

Stria) tattrtd ia tottpatf ui stat to priotar 

StrUf tattrtO frot tain sua aai a«Bi|a»d to iosOtr of itriag flaltf 

latt of tftfult rti^Ht 

Viat of dtfatJt pittirt 

laat af rii^nt lata flit i&l tht« patttre data fllo 
fa-ray of valm ittd U displiyiao atoi itit oulars 
ttsistK for tbt titporiri atorift of rtal oeoktn 
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n o 



1 



1 



n 



n n 



on n T 

-I 

^ o 
n o a 









10 


OOIA 


oou 




0004 




flM7 


0004 






0U2 




M48 


0412 






0412 






0443 


15 


ftOSt 


0444 






0444 




vwvv 


0444 






044S 






0441 




0079 


04U 


30 


eoB3 


0441 




oou 


0448 




0084 


0448 




0012 


0448 




OOOE 


0448 


25 


00F4 


0448 


OlOA 


04a 






0448 

W Tip* 




0134 


0448 




017Y 


0448 




OlfC 


0448 


30 




0448 




0448 




OI07 


0448 






0448 












0448 










AT) ft 














0418 












Mil 




9iM 








04 il 










OZ/7 






029f 


044C 




02AC 


044£ 


45 


02C0 


044E 




07O 


e44£ 




o:a 


044E 




070 


044E 




om 


044C 




02Ct 


044E 


SO 


02CC 


044E 




otsi 


044t 




Q33C 


0470 




ojn 


0470 




OMI 


0470 




0^88 


0470 



s-3 riT?t:n stiti: 

8in snoAn(«,5),!iouin7,n,K?tin7,« 

WSM IiniaiU: 'riU Iflil. ui ui icrin 

1H1L£ TTPn (> I 

TTPa « 0 
AS • " 

u • iicmi 



ot-r 

Mt4* 



IF II ■ W At • THOI TffC « li 
IF Af « 'P' OH At ■ THOI TTPEX ■ 2s 

IF Ai • •♦' Tua ma • zt 

IF At • THOI ma • 4i 
IF At « CHMIO) * oat (72) THEN mCl « Si 
IF AI « CXaKO) * CXRtlBO) TVEK TlftL * 4: 
IF At • CKUtO) • 0(11(751 TXEH mC • 7t 
IF At > OULtlOl * OatC771 TKOi MTtl ■ 8: 

IF u } oair47i Avo At < oat(U) dch ma 

IF U • '5' Oft At • X¥£M ma » lOi 



*nit nb 

'iurimt witlll 
'dicTHtat ftn4blt 
•« 4iTo» krr 
*lftu urn kiT 
•lift »rTO» In. 
ViQlt trrea hir 
■ ir Boiitr 0-f 



OX mn sos'JB ti, t3, T4, t5, u, n, n, n, no 

VEVS 

ma « 0 
CUT sui 

•fiiMtiiiu 5US^UT1K£3 FCt tHlS ri!DUU •iiUMMtf 
TlOt 'icritcb pi4 

SCUa 0,0,:,2:CXDft 7,0 

locAiE K^Taua.i 
im imx KSTti 

IF lOTU > " TKEX SOtEOI 0,0,e,Oi&£ni» 
If 8in RTtt 

IF tOTaiAU < 3« TKEX lOTEUia • KOTaiva * I 

SOTO uiaccf 



Til 



T3: 



'tilt to fn%t tHB, 00 kctiea 



T4i 



'prectii ktj 

IF BC(U(f^rjl,01 >> KEKUlAEXVt.n TKD nn(U(l3BJl,0} * llDC](ffKJl,ll:amjRX; 

KE>(U(r.E^,0) > RLSUdinarXiO) * HEXUIKOiVI,:)! 'tdd tacnmt 

CaUtl 0,7i6:SU1 SISPRCUi'iRETVU: *«ftn M« vlUt 

'prKtfi ktf 



'chick tu viUt 
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10 



IS 



20 



25 



30 



35 



40 



45 



50 



55 





;»i rfiBiir 


Pattiri 




tfrtlf I 


Oiu 




9^ 


04TQ 




CZF« 


0470 






0479 




(HM 


C470 






0470 


H: 




0470 




04U 


0470 






wn 




M4f 


C477 


74: 


M74 


0477 




041* 


0472 






M77 




04li 


Wl 


U: 


v4IV 


0477 




04tff 


0477 




A A nc 


M77 




04Q1 


0477 




04S6 


0477 






0477 






0477 






0477 


79: 




«77 




0S41 


04n 




0341 


0474 






0474 




0571 


0474 




05^5 


0474 




OHF 


0474 




OSAt 


&474 




OtlB 


0471 




OSII 


0474 




05F9 


&474 






0474 






0474 




OfcH 


C47& 






0471 






0474 




out 


047a 




OUl 


0471 




0(4B 


M74 






0474 




o&n 


047* 




OiCT 


0474 




06n 


0474 




070S 


0474 




077: 


0474 




0734 


0474 




oni 


0474 




073a 


0474 


T7 


one 


0474 




073D 


0474 




07SA 


0474 




07&7 


0474 




onj 


0474 





PUC 

et-17 

0lt4f 

tin PtrtMtl Ccaestir lUIC C«itilir V? 

IF !O!i(:svifi,0) <■ rxKiinDtut,:] tkoi Hcsuc^inn.oi ■ (UXJ(7£fin.:):Erruu: *ckicv >u viUt 

caw 0,7iK3UI OIS?«£Ja/:RrTWJIi 'WiM tii «ln 



IF SSnC ItOO 4 • 0 TO BOWi 
91ITZ • -USQSUS KEVrGUifcnwli 

ir HDTji MD 4 • 5 no itmut 

« 

•prDctii ItU *rro« Uy 

IF untKtwi / 4) ■ 0 TKOI rnwx 
If twintrji / 41 « 2 THOi mm 



*ii ts9 rn ilriitfr 
'wt poiatir «p oat 



'mti poietcr 4e«« ont 



'U Itfl ceitu ilrii^r 
'ftOTt poiattr o&i lift 



*U rsfht colutn Jlrtidy 

*«ovt peiattr oe» ri|ht 



'upat l*Tf lata KCfYUFI aatil (cr> ii tittrtd 
WUTE 25,30!C0LDJl :i.5:fRWT 'OaDl 101 VtLU£'j:CflLtt 15,0 
UnUFJ > 41 
KHIU M <> DOttlUl 

lOCATt :5.»::'M!lT 5?4CEI(Mh 

ICCATE j;,47:MIkT lETWFI; 

41 « 

WIU 41 « *• 

41 - ucat 

IF AS « CVStHJ -«9 LUCrtWl) ) 0 TKEM aT4UFt » uniimsuFf.LBiitrnrjFii-iJ 
IF Al > CXRSi:!) TKDl UT3UFI * xmUTt « U 

Wn • VW.«niUF»i 'lup h*i ftlui af ItTi iapal 

'rwitf elf tiao iccorfltaq tQ stt9 lixe ia atau irray 

ir? « INT (TO? / IHDWtnUUliII) ♦ .5) • nDCUUtO(UI,3] 

*ttat Ttllf (ar aaxiava aatf liaiaaa valtit ta mm irrif 
IF 1DV > XEKUtKtXJl,!) THDi TCtf " nEWtHCXUl,!) 
IF < UUtRDTJl,:) TKOI TUf? • l(EXUUO(UIf3) 

'iattrt an Mlua lata atu arrif wi a^ata acrin 

KrjlRtXUX.OI « \Of 

lO-yiTl 25,30:PS1IIT SFiCHMOIj 

CCLOt 0,7:n5UB OISPUDU 

*«it l«rr*lrDsii toArd than print dttiritf pittira 

itCicn.M is.oaouTi r,i 

P8UT *Stt PottntioatiKt oa Friattr....tbM Frtsi aay Ity't 
41 « " 
KHllE 41 • " 
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Rcigttt iti frifitir 
Fitttri friotitQ 

Olfttt UU Soarcf Uet 



ftfC 
Oli4f 



25 



30 



0710 

^0 07U 047A 

0710 047A 

07U 047« 

e7U QUA 

e7U M7A 

07n 0471 

070 M7» 

0611 047A 
M7A 

ons a47A 

tfSZ 047C 

OCX e47C 

^ C8« M7C 

03S 047C 

06SA 047C 

OBU . M7C 

OSiA 047C 

6813 M7£ 

OBAO 0480 

0647 0480 

06n 0480 

eSBE 0480 

OSa 0480 

08£0 0482 

0B£0 0482 

OnO 0482 

OSn 04B2 

0102 0482 

0102 0482 

^ 0102 0482 

0112 0482 

0112 0482 

0112 0482 

On4 0484 

Olli 04ai 

40 01B4 048& 

0134 048fc 

0114 048fc 

0107 0488 

01FA 048A 

01FA 048* 

45 OAIC 048C 

OAIC 04BC 

OAIC 048C 

0A2A 0410 

OMC 0412 

OUE 0412 

50 OASl 0412 

OA&E 0472 

ouc 04n 

OAAI 0414 

OAAl 0414 

0A81 0414 

55 



u • inXYi 

Loan 25,iiMii[T sfcrtoiii 

*tftUr tret firiiiltff iatD h«rr-broM koird 
T3tf ■ ROOJtO.OMWX Srr.MT.lATt^TOTl 
rW • 5:yU En.BOT.SlOTHnOTJ 
Wff « KinJt2,0l:CALL Sn.STVnC^OOATtTEBr) 
CAU BOT.n 



'filu RtSn liat 



wn • 4 

CAa 6IBUM-DUT(TWn) 
lUPl • Oi 

TESfl • 4 

Oa 0I61TAL.DUTtTIVl) 

n • CIKT(KO(U(l,01 ft 255 / S30)i 'tit psUi MpliUtft by fuUisg HIEHEX ti^ntl SI noJbtr ef ttiii 

m n • I TO Ji 

Ttm > 4: 'fit KIEKER tnu 

Ua DlBlTAl.XTlTDin) 
TO?I « «i *tit HURct fiUt 

UU OlSITAL.OUtCTDIPl) 

KIT 11 

'tstibliib Ctni: tad taitiilizi tlotltr 
WOl 'CWl:2400,K.8.:.n 4^3' AS II 

nw ii/;:utc;,nvj.ii*i 

*to«( «ez:lt oMicl ani tita>Uib tiia origin 
MlfT ll/ftO'i 

'ctlculitt re«/celetR lecitica, tevt then, ind ttt at* orifin 

n • (r.EHUi 1 7.01-1) • irxmiiMfO) / o.oosi 
n • tnEi>;;ii:,o)Mi « iritis, o) / e.oosi 

FRUT ll,i:;n;*0'; 

'priot Xht patttra usiaf riptat cetnt 
lEFTl > HOnjIlfO) / 0.CO3 

ten: • iinrjti,o) / o.oos 

FC8 mun • 0 TO REXUt7,ei 
'prist tht pittira 

m cn • 0 TO wm - i 

ox 5cxoAn(cn,o) sosub plixe, prect, FsitEn, rcixa 

KUi cn 

mm I1/A,0,0/;: *ritort to erifii 
PillXT ll,REPlliKE?n;'0";: 'iOTi to etU pilltm 
REIT RE?EAn 

PRIVT Vitiri pletttr to orifisal KOHE 
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Iti^tst )it ^riattr 
fitttft ^r.Mitf 

Offti: scjrct List 



ftSX, 

tlx PtriMil C«H«ttr USIC CM#lUr V2 



70 



IS 



20 



25 



30 



35 



40 



45 



50 



0U1 0<9« 

OUC «4t4 

OtBC 94f4 niRt 

MX M?« 

OtOI 

0145 0414 

OI4f »4U 

0141 «14 nmi 

et4e 0414 

OtIO 04*4 

Ota 0414 

OCOfi 0414 

0C44 0414 

Oai 0414 

OCSk 0414 

OCBA 0414 PCIRat 

0C3F 0414 

ODU 0414 

ml 041& 

00i7 041& 

0D(7 0416 PSXETT: 

OO&C 041i 

CM» 041A 

0DD4 041E 

0EI5 04K 

OCi 04n 

* OKi 04« 

CE74 041E 

on* 04n 

0E1& 047£ 

0E19 04n 

0£AO 041E 

Ont 0411 

Ont 041£ STOTt 

ocii 04n 

OCCE 041£ 

0ES7 041E 

OCU 041E 

OfOl W1E 

0F17 0411 

Oni OATi 

0F40 04n 

0F44 041£ 

OF44 041E riEFI: 

Or<1 041E 

OFil 041E 

orift 04n 
oni 041C 

OFM 041E 
OFU 04n 
0F11 041E 
OF03 04fE 



CL3Sr III 



wiiT u,ssxAn(m,2i;saffi*nicn.tii*0'; 
wm ti,sDti*nicn.4);saMTHcn,!irirj 
lomat 



rem ii,sciMU(cn,2);500*ninx,«ro'i 
nm ti,safflAn(cn,4)jsaQmicn,ni 
wiiT •i,saiMTitcn,4);SCKwnccn,:)i 
wiKT ii,soiMTi»m,2)iS0(SAnicn,ni 
puiMT ii,stnAnini,2);SCSB*ntcn,ni'\ri 
smnot 



uoiusi • ss«n50i:*ntcn,:)-sc»mtcn,ni*2 ♦ iscxBmicn,4)-5DCftntcn,:n*2) 
PRUT II, 'cc •;5cxwntcn,2);scam(cu,nii«iusxi 

SETURI 



SIX • sca*ntcT;,4i:ixi • sotatxicti,:) 
SYX - soaATxtcn.i):in • saoATitcn.i) 
IF Exx (• SIX TKDi i\\ • sc5&mtcn.2):En • saa)Antax,4i 

IF ETX <■ STl TKiH SU • SCMATllCn,!* lEH • SWDAniCU.J) 
PRUT lUSXljSn;':'; 

IF Eix - SIX )» Ei: - sn tho sosui stept else sqsub stepi 

PRUT n/U'; 
UTURM 



PRUT tUEIIiSTX: 

$n • sn ♦ I 

IF sn ) rrx tkek bhuu 

ptiMT r..cnisn;5ntsni 

SIX • sn ♦ I 

ir sn > rrx tux muu 

ptin ii,sxx;sni 

iOTQ STEPT 



reiia ii.sixjEnt 
SIX > sn ♦ 1 

IF SXX ) EIX TKElt lETUn 

PRim •i,5ixiEn;sn;sn} 

SIX • SIX ♦ ) 
IF SIX > EIX THO RnURI 
PRUT ll.SXXiSni 
BOTD. STEPI 
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6 KiiBiBl ill Prl&tir 
?<ttiri friaUftQ 

IHfffft UU SoBTCf Uat 



0»-|7 

ett49 

IIR Pirtaail Zu»titr lUlC Co«fUcr V2 



T5 



30 



25 



on? MTE 

one MU 

om Mit 

OFrA Mn 

leoc Mt£ 

leiE «»£ 

1048 04fC 

t04B 049£ 

lOSr MfE 

mt QUE 

loAt oin 

I0A1 

loa 04n 

lODB 04n 

ion 04fe 

ion 04« 

10E3 04U 

lOE^ 04« 

lOCF 0491 

lur 04n 

UeO 04U 

1193 049E 

im 049E 

1195 049E 

1193 04Tc 

nA< 049E 

35 UBfc 0«« 

11C8 04U 

nCF 04U 

ncf 04tt 

UEO 04f4 

i:oo Mh 

40 1223 04U 

124& 04fti 

m9 04U 

mt 04U 

lUl 04U 

121B 04U 

45 UlS 04U 

1218 04M 

129B 04U 

12C9 04U 

IIOI 04JU 

12Efi 04M 

SO I2f4 04AA 

I2f4 04(A 

IZOS 04AA 

1317 04U 

IIZA 04U 

\m 04U 
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KEV-aU: ••riU eU iIm it mHo-, |oui U wo UiUi|U •« tin 

oxfix i4|0:Rrsui Bismxti 

ECATl • REXUl * Sim 

:r row » lo thex rekjx • 9 

IF EEKUt « 11 TKD BEJWl ■ 9 
I? HEKUI > 15 TKO( BtKJl - 15 
count 0,7iMSUB DISPHE35JianWI 

ixniALiUt 

'cfaieqi to tcrtii 0 u< 4iipUr Miiteit 

5CSEEK 0,0,l,l:C3Lflit 7,0iC^iL0CiTl 10,17:ra]irT 'iMdiao ulcctid KiiftAt wtf Pilttn OiU Filtt'; 
UWTE l2,33iPBin •Pltiii BUU..* 

*illtitlitt letipit en scrtta 2 
SOaEX 0,0,2,l:aJ:Cain 15 

PRIirDifital Vottpai - - HUl UferiitiM typtd btrt is stflt to tbf pritttr* 
VOTtUKEI « 3 

'ikitiiltji •tao irfiyt 
K£5TtR£ UUOAU 

rw n»o TO 17 

REAS KEKUnil.Ol.REXUtta.ni 

UAS KEKUtll,!: ,REirj(ll,2l ,KEVUm,3l ,IIEVU(11,4I 

REH 11 

'git difauU rtigrnt 'lU ani riad valos 

OPD "ttASn.RJP* fW U>UT AS II 
IRPUT lUFILEl 
IKPUT lUREAXAKEt 
aOSE II 



DPEI FILEI FOR ;S It: 

IKPUT il,R£3tU(D,OI: 

INPUT ii,)ieiiua,o): 

llfPUT ll,flEWIl2,e)i 

IKPUT n,IiEWl3,0l: 

IXPVT lUAElUU.eii 

IKPUT lUKEMUtS.Olx 

aosc II 



'ftt riafiat data 

'aulitult 
'strstf lilaT 
*ysUi aidtb 
*ri<t tiM 
Mall tiM 



'gtt dtfault palttra lilt and rtad valati 
OPa 'PATOEF.AJP* FOt INPUT AS II 

IKPUT ii.riui 

IKPUT ll.PATTUKEt 
CLOSE II 



OPO FILEI FOR IxrUT AS 111 
UfUT •l,EL'(WI 
IXPUT IMltJCUU,!!! 
IKPUT ll,n£Wt7.9): 
IKPUT ll.REKUiBiOM 



't»t ^attin dtta 
'«rid 

Vtptat count 
*i oMut 
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•0 



0€i«f 

SoPd tin 9tr»o«al C«M«lir li^IC CcMilfr fl 

linn ii.Hatoii.oH *i oHmi 

FU II « 0 TO cjcpa*i 

m n • 0 TO s 

iKPUT ii,sanAn(ii,ni 

KIT il 

EOT U 
OJS£ II 

•tit rvitiiiif pi/Httir* it im irr*y 

SVIU.O) ■ li 'rw I 

100(13,0) « ii 'nlua 1 

ieuU3,0l ■ Oi 'toliM ifKUg 

*cku«» ictivt tftfilittd tcrtfi to icrtn 0 to inn s&tf 4tsfliT 9«r«»«ttrt 

scsni 0,0,0, iicu 

COM I3:UCm I,35:PftI«T 'KKSaT rRHnitt*! 
Ca£8 9 
nS 1-2 TO 7T 

LOCATE 3,I:PBtvT OAStmipLfiCATt S,IiKIin O«St20S)):L0CATE llJiNtlXT DSStmii 

ICIT t 

m IM TO 17 

LOCATE M:FtU; C»tf lUflpLCCATl I.ZSiPUn CXU(tU);:LOCATC I,;4iPltIXT CKXMllilitlOUTt t,£ 

(tm. OAS (mil 

ICIT I 

££ST»r TAILC 
m I«l TO 13 

it£AO n,ci,n::::iTi- (a,n:PMirT ootf (nij 

1 

OLSt 14,6 
FOt REVUl • 0 TO IS 

*i«t lor first itft« tntrr ki)Ui|U it 
REKll • Oi CC L Dt 0|7 
fiOSU OtSPKOO 

*friot tkroi hialiift anl iattrvctioot 
COIOI 10,0 

loan 4,i<.9'i£X(R((vucn/::P)tin ficuuudti 

LOCATE 4,4H.£)ltPATllAn£tU2:P«m MTUKEli 
lOttTl 4,W»fBlllT 'nm LCaTlfll*! 

COLDt 7:L0aTE t1,:0:mKT "Jit *|tCOLQR IS:PR1IT Datt271;C»lia2]|C»tf Uilt 
nm CHtSl3:):C»t$(:4);CHtM32)tCWIin);tC0LUl 7imKT * to lositico MflUfHtri curur'i 
LflCATt 20,lti«l»T 'Uit 'pCXOR ISirtW •♦'itCttOi 7irtWT • or 'iiCOLOR ISiPRllT 
tOLOa 7ifaWT' to »croU cirrial nUl op or «m*| 
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Offtit 


Oiti 




1390 


04U 


fO 


t3A3 


fr4AA 




1311 


04 AC 




1317 


04 AC 




I3S1 


04AC 




130 


»4AC 


IS 


i3n 


04AC 


1404 


04 AC 




1404 


04AC 




1404 


04AC 




1404- 


04 AC 




1420 


04AC 


30 


143C 


MAC 


1(38 


04 AC 




1474 


04U 




1474 


04 AC 




1474 


04AC 




1474 


04AC 




14fl 


04AC 


36 


1491 


04 AC 




14S2 


e4&c 




HIT 


04AC 




14C3 


04 AC 




1523 


04t0 


30 


tS3C 


0410 


1348 


0410 




i3ca 


0410 






0410 




15E0 


0410 


35 




6410 




0414 






04I& 




I44S 


04U 




IL4S 


04U 












04li 




IIS7 


04U 






04U 










lUl 


04U 




tUA 


04U 


45 


lUO 


04lfc 




UB6 


04U 




I4S& 


04IA 




uts 


04U 




Uf2 


04U 




t&Cl 


04U 


50 


14F0 


041A 




170k 


04U 




170A 


04U 




1754 


04ti 




1793 


04U 




17E9 


' 04U 
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10 



T5 



20 



Ut^tAi Jtt Hitttr 





Dffltt 




2S 




mi 




IBTT 


un 






em 




mc 










30 


1S9C 




inc 






im 


C4U 




ins 


MU 




ISIS 






t3U 


MU 


35 




0<U 


inB 


04U 




1SS6 


Q4U 






04U 




i9n 


»U 




inr 





OlMtt 

m ?ir»ocil Coapcttr iASIC Cuoilir V2. 

Soarti Uit 

IKiTE ::.»!m)lT 'Un -pCaOl l5iPtIirt •fjiCOlOlt UnW • to prut p»ttira or 'I 
niia J::?j1bT •£';!C0J» >.nm • to nit to priot itna'; 

nm • or •r.cflua isif^m -s^rajLia TiPUit • to y« iDttpid*; 

•»a ftrtii lo rill otM j«l criitU w< wit 
SCkHX 0,0,0,0 

smsti 

IF ItDdtt « 10 DR RQtUI • II TKO KTWI 

LOCATE tROUl WOO 41047, (in iRayu4ii2B*:)-2»miJ(etux/U) 
PRin Bc.-afiiowi.oj 

LDCATI (BOftrt MS 41»2*7,H£KltIlDBl,«l 
fRlKT USIXS KEKUf IRtKUl.niREWtmai.Oll 

lt£R IPAEC 



4S 



SO 
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6 



10 



rittKi PrtntiM 



75 



30 



25 



30 



35 



40 



45 



(Kfm 




Soorci LiM 


in? 


0411 


'iiiuiiif III Lsu Qso (T ntis 


inf 






IflF 






tic< 




Uitm 'Sat FrtqvttcT 


lie* 




NTI •AipUtB^ 


itci 




MU *Slrtlt MiT 


inA 


e4U 


UTA '?al» lim 


tta 


wu 


Un niu TiM 


l«£ 


MU 


UTI ^FiU Tiat 


I1M 




MTI *KrU Silt 


m: 


cm 


MIA "BtMit CMflt 






fiATA *1 Aitt OHtct 




MM 


KTI M Axit Oflitt 


tni 


MU 


DAU ",••,0,0,0,0 


1^ 




MTI ••,••,0,0,0,0 




04U 


8AU •Ra* U Priit 




MU 


MTA 'CaIom to rrmt 


mo 


04U 


OAU •Rai SpicsB9 


ITH 


H» 


fiATA •CaIbia SpKiiif 




MU 


MTA ••,••,0,0,0,0 




MU 


MTA ••,••,0,0,0,0 




MU 






MU 


1ACX: 


ins 


MU 


tAU 3,1,2IB 


l?EF 


MU 


MTA 3,2«,:i0 




MU 


MIA 3,si,:to 




MU 


MTA 3,80,ni 




MU 


MTA 3,1. 178 




MU 


MTA 3,»,»l 


llfl 


MU 


DATA 3,54, :0i 




MU 


MTA 3,S0,1I1 


ifn 


MU 


MTA IB, 1,112 




MU 


MTA I8,n,30> 


lAOt 


MU 


MTI ll,:4,309 


twi 


MU 


UTA 1S,B0,217 


lAOS 


MU 




lAn 


Mli 


m 53 


lUC 


MU 




lAOC 


MU 




2MY 


MU 





fta 



50 



SM2i htti Iv&il4tlt 
MTU »ite» Fft* 

I VirftiH Crreritl 
I S*wt ErrorUl 



fe'/IMIf.lOOOO.t.l.U 
» •,••«', l5O.0,t,» 

•,'tir,iw,o,i,w 

•,'IU',W,0,1,W 

•,••«• ,w,o,i,ti 
^•••i.tii",.oo:..oos..oo3,i3 

ia',*l.ltt',2,0,.0O3,IS 
la*,*I.Mf,2,0,.003,4S 



•,'ir,ti,i,i,74 

•,Mr,»1,l,l,74 
io',M.lir,:,0,.005,72 
la*,'l.«r,J,0,.oe5,T2 



55 



: 0 268 237 



Offsr. Sa-i'ct Lict I» Ptrfonal Coipater BfcSlC Coapiler V2,00 



DCCi ==2 S?TTU:'S5i:t« Jtl Prinler' fSUETlHi: 'Rfiowt niing' 



OOZv 
0030 
0030 003& 

0030 'AvTK?? - X- A. EntToK 

0030 OCU 

0030 0CC4 -WHii&a tCl flSMH UBORATORIES 

0030 OOCi ' ..... 

0030 mh UTUICH - Kl 03-O7-B6 KAE Addrtf »otH *nd descriplion 

0030 CC04 • 1*0 02-U-Bi KA£ Cfiiliofl ol iQitiil codt 

0030 OCOo 

0030 OCOA 'STSTtM - Tbis codi C« only tf coipilfd by tht BASCQn 

0030 000J • OnPILER, it lill not nw under tht INTERPRETER!'. 

0030 0CO& 

0030 C0O& 'CESwtlPTIOK: 

0030 000b • "fiiis lodttlt allon Hit bwdling for reigints. ¥heft iftv 
oM, it displays 

0030 0004 • tht corrtnt tontmls ol the remnl directory in 4 colu 
tns Df 20 tfitrics 

0030 OOOa ' iicfc. The reigent ihith is currently selected for prio 
tin) is ttrked by 

0030 W0& • tf asterisk to the left of the r«qent oiie. Alter the 
dirtctory is listed 

0030 000* * the user is presented Bith 5 acnu choices. Tht left an 
d right arrows are 

O03O OOOfc • to highlight aenu Jteis and the enter key is used 

to invokt action. 
OC30 ' 0004 ' The teno choices and tieir actiofls are: 
0030 0004 

0030 OOOi • DELETE - Reao** a reiqent hie fret the directo 

nr 

0030 0004 ' COPY - CapT a reagent file to a ntn reagent n 

ue, savln9 the eld reaoeot 
0030 O004 ' REHAHE - Ctanoe the naae of the reagent without 

chin^in^ the reagent itself 
0030 0004 ' SELECT - SrUt a reagent for prioting 

0030 0004 * - Return to the tain aenu 

0030 OCOi 

0030 0004 "DaiA OICTICHARY 

0030 0004 ' TTPEI Mhich type of valid key «as pushed 

0030 0004 ' KXSl Vhich ahiq itea is being pointer to (0-41 

0030 0004 ' OIFFI Distance to ■ove KEKUI at left or right arro 

V 

0030 00C4 ' Error type 0-4 

0030 0004 ' POIKTERI Position of REAKAXEt in directory list 

0030 0004 • REAXWtt Huaber of reagent nates to directory 

lilt 

0030 0004 ' "lEffl Storage for integers during reagent copy 

0030 0004 • A< Wsc. input string 

0030 0004 ' RJMCTS Printed at bottoi of screen during proipt fo 
r reigent nite 

0030 0004 ' REMlAr^S Rsaoent na*e currently being -orked on 

0030 0004 ' SELSaaEl Reaoett nase currently selected for printing 

0030 0006 * FILEI filename of reagent oita file 

0030 0004 * Sf iLEI Fileniie tor source reagent data file used d 
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(figtnt Jet Frintrr 
Rfioent FiliaQ 



mi 2 

llf. Ptrson.i Coiouter BASIu CoioiUr V2.00 



00:0 


COC& 


0030 




00:0 


00C6 


oc:o 


00C& 


00:0 


000& 


00:0 


0OC& 


0030 


000& 


0030 


000& 


0030 


000& 



DHUS ^iUntit tor dts:inatioa rcaotnt data Hie a 
se3 during ccpy 

vriKfi.n£t rcaqtflt na«c for COPY and fiO(A.H£ 

Tcf.?! Reiccnt na«it an htld hire as tht directory 
is 5iin9 rr-«ntttn 

K£VrIL£l wcstination fiUnaie usid vhile copying nag 

ect data Hits 

r^SSASEI A lessage prioted ii tht bottot of the urtt 

e 

REKUSd,!) Ilrray of strings contaioioQ the short ifld I0 
t^^ tenu naaes 

EKU^SSi Message printed ahiA uy error occurs 

ERRS Appended to £KAnSES to indicate nature of cr 

for 



^sigent Jet Printer 
Keigent Filing 



PAEE 3 
07-09-96 
13:04:3: 



Offset 


Oat a 


Source Liat 


IsA Personal CoiDater BASIC Cotoiler V2.00 


0030 


0d-:6 


r;? a£as£3!T.file static 


0047 


OCO^ 






0047 


ooe& 


ECSUB IKITIAIIIE 


004D 


000& 


TTFG 


* 0 


0054 


OOOS 






0054 


0008 


mil wn 0 3 


005F 


0008 




M * •• 


0069 


oooc 




Will At ■ 


007B 


000c 




Al > iKxns 


0062 


000; 




¥DtD 


0085 


oooc 




IF Al ■ CHRKOl ♦ CKRJ175) THEH TYPEl * 1: 






'left »rro» 




OOAA 


oooc 




IF At « CHRtIO) > CHRtt77J THEH TYPEl « 2: 






'right arro* 




OCC? 


oooc 




IF At ' CKSt(l31 THEM TYPEl • 3: 






'<cr> to execute selection 


00E9 


oooc 






O0E9 


oooc 




ON TTPEI E0SU6 Tl, T2, T3 


OOFS 


oooc 


VEHD 




OOFC 


oooc 






OOFC 


ococ 


UlT SUB 


0100 


oooc 






0100 


oooc 


RtR tPftoE 
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n 



n 



Reigm Jtt Printtr 



PAg£ 4 
07-09-36 
15:04:35 



Offsit 




Source Uai Pir$cc*i Ceictttir BAalC CoipiUr 


0100 


oooc 




0100 


OOOC 






OlOO 


oooc 


Tl: 


*atH arrsv 


0105 


oooc 




Tfpn « 0 


OlOC 


oooc 




IF REiOr: ' 0 VX£% RniTW 


OllB 


oooc 




OlrFl » -I 


0122 


0010 






0128 


0010 




RTUWI 


012C 


0010 






012: 


0010 


T2: 


'rigbt vroi 


0131 


0010 




vtfn « 0 


0133 


0010 




IF naVI « 4 THEH R£rj7a 


0147 


0010 




DIFFT « 1 


0I4Z 


OOlO 






0154 


0010 






015B 


0010 






015B 


0010 


Uz 


'<cr> Uxecate sdecifd itnu ittt) 


OlSt) 


0010 




LfiCATt :S,l:Pflirr S?ACtH791; 


017A 


0010 




DM r.EKUi ♦ I ficsiii hb, t3c, no, T3E 


OlflF 


0010 




C(]3UB REIOJ.OM 


0195 


COlO 




RTTUKX 


0199 


0010 






0199 


0010 
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Rugini FilUg 07-09-fii 





(HItit 


Data 


Sourct Lini ISn Ptrsenal Coipatir BASIC CDipllir V2.00 


6 


019? 


0010 


T3A: •delttf rtiqtnt 




01?£ 


0010 


nPEl « 0 




OlAS 


OOlO 


FUKCTI ■ •0«l«ti' 




OlAF 


0014 


eOSUB EcT.SOlJRCE 


fO 


0U5 


0014 


IF UXIREAXAKEt) » 0 THEN RmiM 




01C7 


COIB 


IF nEA)UtR£t < SElXAnEt THEN RABI * 4:SQ5UB SHOV.Et^.OH: 








RETURM 




oin 


OOIE 


6Q5UB SEARCH 






00 IE 


IF FOIKTERI s 0 THEN FlABl • liEOSUB SHOH.ERtORtRmmi 


T5 


0209 


0020 






0209 


0020 


KESSASEI « 'Deletiaq * « REAKAKEI 4 • pitatc y«it.. 

• 




0220 


0024 


• 

SOSUB KESSAEE.DX 




022& 


0024 




20 


c::& 


0024 


*riHrite directory deliting REAKAHEI as indicat 








ed by FOlKTESa 




022& 


0024 


Kia *R£ADIR.OUI* 




022D 


0024 


MAKE "REAOIR.RJP* AS 'REAOIR.OUD* 




0237 


0024 


OPEN "REAOIR.OLD* FOR INPUT AS 11 


25 


0243 


0024 


OPEN *R£AOIR.RJP' FGR OUTPUT AS 12 




02:a 


0024 






025A 


0024 


INPUT tl, REANUn 




02&C 


0026 


REANUni < REAJiUltX - 1 




0275 


0026 


VRITE 12,REA)tURl 


»> 


02B& 


0026 






02B6 


0026 


IF REANUm > 0 THEN SOTO DIR.OONE 




029S 


0026 


FOR II » I TO r-ajwh: ♦ 1 




02ft4 


OOXB 


INPUT tUKEA.Uf>£t 




02Bb 


0026 


IF n <> PCISTtnl VfiEH PRINT I2,REAXAREI 


35 


02D: 


002A 


NEXT U 




02E5 


002A 






02E5 


002A 


DIR.DONE: 




02EA 


002A 


CLOSE II:C10SE 12 




02Fe 


002A 




40 


o:fb 


002A 


'rtiove data liU 




OIFB 


002A 


FILEt * RISllTJ(5TRi(P0:»TERI),LEN(3TR$lP0lNTERZJ)-l) ♦ 








•REA.RJP^ 




031C 


002E 


Kia FILEt 




0373 


002E 




45 


0323 


002E 


'rrniac reiaining data files to laintaln linked 








list to directory 




0323 


002E 


WILE tSEAKUKl ♦ 1) > PQIWTERI 




0333 


002E 


STILES * RIEHTnSTRI(PQIHTail*n,L£N(STRI(POlNT 








ERI*in-l) ♦ •REA.R3P' 


50 


0359 


0032 


DFILEt * R16HTt{5TRS(P0IKTERI),LENtSTRI (POINTER 






1J)-1) > 'REA.RJP' 




037D 


0036 


KAnE SFILEI AS OFILEI 




03B7 


0036 


POINTERI « POIHTERl ♦ 1 




0390 


0036 


WEKO 


55 


0393 


0036 




0393 


0036 


eorjB nE55;sE.0FF 




0399 


0036 


REAKAnSf « SaHAHEf 




03A3 


0036 


605UB T3DA 




03;9 


0036 


6CSUB DISP.OIR 



61 



0 268 237 



Rsicfitit Jet frinttr 

onset Dita Source Line 



07-09-86 
15:04:35 

IBA Ptrsentt toionter EASIC Cfiipiler V2.00 



03AF 0036 
03B3 003& 
03B3 0036 



RETURN 



REH SPASE 
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Rugirt Jit Prinlir ^ - VSt 7 

Rcftaent Filing 



tKfsft 


UU 


Sourct lint IS.*! Pirional Coipatcr BASIC Coipiltr V2.00 




003& 


T3B: 'copy rtiqint 


OZBB 


0036 


TYPn « 0 


03BF 


0036 


IF REAWni « BO THEK FUGI * 3:BDSUB SHOV.EKRORtRTmRX 


03DB 


0036 


FUKHi « •Copy* 


o:£5 


0036 


E05UB Sn. SOURCE 


OZEB 


0036 


IF LENtREANAflEtl • 0 THEN RETURM 


o:fo 


0036 


60SUB SEARCH 


0403 


0036 


IF POIKTERX « 0 THEX FUEI > U60SUB SHGU. ERROR: RETURN 


041F 


0036 




04 IF 


0036 


' 60SU6 fin.UEy.NUfE 


0425 


0036 


IF IE«(NEVKAAEI) • 0 THEM RETURX 


04J7 


003A 


IF LEN(NEVVA;1£$) ) 15 T>0 FLA&I « 2:60SUfi SK3U.ERR0R:R 






um 


04S7 


003A 




0457 


003A 


KESSABEI > *Capyin9 * > REAHAAES 4 ' to ' 4 HEVNAKEt * 






* Plcist »it..* 


047C 


003A 


.60SUB RESSA6E.0H 


0482 


003A 




04B2 


003A ' 


'add niv nait at end of directory 


04S2 


003A 


KILL •REAOIR.OLO* 


0439 


003A 


liAAE "REAOIR.RJP* A3 'READIR.OLO' 


0493 


O03A 


OPEN 'REAOIR-OU)* m IttFUT AS U 


04A4 


003A 


OPEN *READIR.RJP' FOR OUTPUT AS 12 


04B6 


003A 




04B&. 


003A 


INPUT It, REAXURl 


04ce 


003A 


REASUHl » REWUHX ♦ 1 


0401 


003A 


VRITE l2,R£AKUni 


04E2 


003A 




04£2 


003A 


FOR 11 > t TO REArjXl • 1 


04F1 


003C 


IKPUT ll,TE»-PI 


0503 


0040 


FRIKT l2,TEJtfl 


0513 


0040 


NEXT II 


0525 


0040 


PRIKT l2,HEVHAnE$ 


0535 


0040 




0533 


0040 


CLOSE ll-.aOSE t2 


0543 


0040 




0543 


0040 


'create copy of data lilt 


0543 


0040 


FlLir « RIBHTI(5TRI(PQUTERI),LE)((5TRI(P0INTERZ))-U ♦ 






•REA.RJP* 


05&7 


0040 


KEVFILEI « RlBHTt(STIt$(REAKUKl),LEH(STRJtREAKUHl))-U 4 






•REA.RJP' 


0566 


0044 




0586 


0044 


OPEN FILEt FOR IKPUT AS tl 


059C 


0044 


OPEN NEVFILEI FOR OUTPUT AS 12 


05AE 


0044 




05AC 


0044 


INPUT II.TEUP 


OSCO 


0048 


VRITE t2,TEnP: 'frequency 


05^0 


0048 


IKPUT Il.TEHP 


05E2 


0046 


VRITE l2,TEnP: 'pulse nidth 


05F2 


0048 


INPUT ll.TENP 


- 0&04 


. 0048 


VRITE l2,TEnP: 'strobe delay 


0614 


0048 


INPUT Il.TEHP 


0626 


0048 


VRITE l2,TEnP: 'nozile 




0043 
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10 



15 



20 



Reiacnt iti frinter 
Reigtnt Filing 



PfiEE 8 
07-09-86 
15:04:35 



25 



30 



35 



Orfset 


Diti 


ScurcK Lint 1611 Personal Coioutcr BI^IC 




0048 


lX?tJT tlJEKPI 






0048 


PaiKT l2,TDiPI: 


'concentration 


0&S8 


0048 


IXPUT ll,TERP$ 




06^A 


0043 


PRIK7 l2,TinP$: 


'dtnsity 


067A 


0048 


IXPUT tl,TE?l?l 




06SC 


0048 


pRitn %i,m?si 


'viscosttY 


CMC 


0C4B 






0b9C 


004& 


CLOSE tUCLOSE t2 




O&hA 


0^43 






OeAA 


COS 


ebsuB nc=3;sE.^f 




O&BO 


0048 


EOSUB DISP.OIR 




0&B& 


• 3 


RETUaN 




O&BA 


0048 






06BA 


O048 


R£H tPAGE 





45 



50 



55 



64 
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O 
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C048 


06oF 


0043 


06Cfr 

V V V V 


0048 


O&CO 


0043 


06D& 


0048 


O&EB 


0048 


O&EE 


0048 


070 A 


004B 


070A 


0048 


0710 


0048 


0722 


0048 


0742 


0048 


0755 


0048 


077A 


0048 


0760 


0048 


0790 


0048 


0780 


0048 


0787 


0048 


0791 


0043 ' 


07A2 


0048 


C7B4 


0048 


0784 


0048 


07Ci 


0048 


0707 


0048 


0707 


0048 


07E4 


004A 


07Ffc 


004A 


0813 


004A 


0830 


00 4A 


0842 


004A 


0B42 


004A 


0850 


004A 


0B50 


004A 


085^ 


004A 


0875 


004A 


087B 


004A 


087F 


004A 


087F 


0O4A 
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nURN 



3DA 



'ren»e rttgtAt 

TYPEI » 0 

FUHCTS « *8eD2ii' 

SOSUB BET.SOURCE 

IF LEXtREAXAXEf) * 0 T>ei EETURX 

COSUB SEARCH 

IF POIHTERI « 0 THEN FIASI * 1:60SUS SHOV. ERROR: RETURN 

BOSUB BET.KDI.HAnE 

IF LEXIKEVHAnEt) « 0 THEH tETURX 

IF LOKREVHAREtl > 15 THEX FLABI « 2:B0SUB SHQV.ERRQR:R 

IF REVKAREt > REANAHES THEN RETURN 
IIESSA&ES « 'Renaaing ' « REANAKEI ♦ * to * ^ NEVKAREt ♦ 
PUisc «ait*«* 
SOSUB nE55A&E.0N 

I 

'reniiing riaqtnt aaae in directory 
tWX •REAOIR.OLD' 
KAXE "READIR.RJP- AS 'READIR.OIO' 
OPEN -READIR.OLC* FOR IKPUT AS II 
OPEH •READIR.RJP* FOR OUTPUT AS 12 

IHPUT tl, REAKUHI 
VRITE t2,REAKUni 

FOR n « I TO REUUn 
INPUT ll,TE.Vl 

IF II <> POiKttRl THEN PRINT IZJERPI 
IF 11 = POIK'-R: then print l2,NE«NAB£f 

HEIT U 

aOSE lUCLOSc 12 
63SUB nESSABE.OFF 

IF REAKAncS - SELMAnEt THEN REANAHEt » KEUKAnEI:BOSUB T 

B0SU6 DtSP.DlR 
RETURN 
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rtiQMt ^or printiag 


063* 


0046 




OBSB 


C0<4 






Cv4A 




0393 




TF rnr^TANAX^tl > 0 THEK RETURN 






IF Rffl^^J^t « ££LKAfl£$ TKEH RETURM 


OElw 




sOSl*B T3CA 


OdCS 


v04h 


BQSU8 BISP.DIR 


OBCC 


^- T 1 B 




0600 


AA V ^ 




A Aft A 

06D0 


tv4A 








CCTuS SEARCH 


OBDb 


MIA 


IF PDUntHl * 0 TKEX FLA51 « 1:63SUB SKOV.ERKOR: RETURN 


Osr / 






05r7 




REESASEf « *S(ltctiD9 * ♦ REAHAAES ♦ ' PUiSi Mail. 

• 


OtOE 


004fl 


• • 

KJSUB HESSASE.CK 


0914 


AA « A 

004A 




09U 


C04A 








JP 


0914 


004A 


OFti *RcAOEF.ri;P* FOR OUTPUT AS 11 


09:& 


C04A 


FILES « RI6HTJ(STP.i:f-0I!ITtfit),US(STRt{P0INTERIl)-l) ♦ 






•REA.RJP* 


094A 


004A 




094A 


C^4A 


mVT 11, FILE! 


095ft 


ecu 


PftlKT ll,REAKAnES 


096; 


CC44 




09&A 


tou 


aOSE 11 


0971 


C04A 


EOSUE ''^SSASE.CFF 


0977 


034; 


RETURX 


097B 


CC4A 




097B 


004A 


T3E: 'ciit rcigint lilinq 


0980 


C04A 




0984 


034^1 




0984 


&04A 
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09&< 








07B9 


CC4A 




fCIWTEKI » 0 


0990 


C044 




C5QI *PEADIR.RJP* FOR IKFlH AS 11 


09A1 


:o4A 




IK?UT tt,REAKUni:* 91! auabcr of riigents io dine 










093: 


CM 




:f RiAKunx ' oim ac$E lURrruRN 


09n 


C04A 




Jim * 


09o: 


004A 




m\S (POIKTEKX < RfAmi) m (lEANAAES <> TEHPt) 




COM 




LIKE IHPin 81, TOPS 


OAOE 


0C4A 




PQINTERI « POtHTERl ♦ 1 


OAtl 


0G4A 




VEXD 


0AM 


004A 




IF REAKAKEt 0 TEKPS TKEK POIKTERX - 0 


0A2A 


004A 




aosE 11 


0A3; 


004A 




RETURN 


vh35 


004A 






oa;5 


004A 


6n.5DURC£: 


0A3A 


004A 




LOCATE 2S,1:CQL0R 15,0:PRIMT "Enter Reioent Kite to 'FU 






HCTf 




OA&C 


004A 




LIKE IKPUT;'%REANAKE$ 


0A7A 


004A 




LOCATE 2S,1:PRIHT 5PACEI(79); 


0fi97 


004A 




RETURK 


0A9B 


004A 






0A9B 


004A 


eiT.KEH.KAKEt 


OAAO 


004A 




LOCATE 25,1:C0L0R ]5,3:PR1KT "Enter Ke« Reagent Naac <; 


OAC& 


004A 




LIME IKFUT;'\KcWft«El 


V*ltf T 


0Q4A 




LOCATE :3,l:rRIKT 5?:Xtt{79); 


OArl 


C04A 




RETURN 


OAfS 


C04A 






OAFS 


C04A 


CIS?.DIrl: 'dispUv reaqtnt directory so 4 coluans of 20 r 










OAFA 


004A 




'read selected reagent into SELKAHEt 


OAFA 


OOiA 




OPEN •REWJEF.RJP' FOR INPUT AS 11 


OBOl 


004A 




INPUT tliSELHAHES: 'read and discard data file nai 


OBID 


004A 


e 


INPUT tl,SELHARcS: 'read and save reimt naie 


OBZr 






acSE 11 


0B3i 


C04A 






0B3& 


004A 




OPEN 'REAOIR.RJP* FOR INPUT AS 11 


0B47 


0&4A 




INPUT tl,REAKUni:' read nuaber of rcagentf 


CBS9 


004A 




HESSA6EI > 'Reading Reagent Directory Pltasi Nait* 


OBU 


00 4A 




S05UB RE5SASE.0N 


0B&9 


OMA 




RASI - 0 


OB70 


CC4A 


I 


TEWI « REAHURX - 1:1F REAHUNX < 60 THEN TEflPX « REANUH 


0B8B 


CCAC 




FDR IX « 0 TO TEHPX 


0B97 


004c 




LOCATE (U ROD 201M,(lNT(IX/20)i20)4l 


OfiCA 


0«4£ 




PRINT SPACEM18)} 


OBDft 


004£ 




NEXT II 


oBec 


004E 






OBEC 


004E 




PGR IX ' 0 TD REANUnX - 1 


OBFA 


OOSO 




I1FUT tl,REANAXEt 


OCOC 


CC50 




LOCATE (IX »0a :01M,UNT(IX/:0)i20)43 


0C3F 


0030 




PRINT REANAHES: 


0C4C 


C030 




IF REANAREI » SEUAREI THEN LOCATE (IX HOD 20)* 
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OCTB 


00^ 




OCB& 


OOSO 


OCSE f 1 


0CB7 


ooso 




ocn 




CE713» 


OCX! 


ecu 




0(X1 




WniALllE: 


OtXi 


OOSD 




0CC7 


COTS 


ICEVJKO^O) > "CtleU' 


OC&F 


007B 


REKUKO.U * "kchvc « rugent fill Iroi the dirtcton* 


OCfA 


C073 


KES3$(1,0) • 'Copy' 


OOlS 


0076 


KEKUI«1|1) *■ *Co9r a riigHt Ulc to a ntv riigcnt one 

• 


cc:e 


tm 


1SVtU(?,0} * *Rt&tu* 


0D4B 


0078 . 


f£>SU${2,t) > 'Cenau i rtagent liU in the directory* 


0D&9 


C07B 


ICmtt3*01 « "Selfcf 


0D84 


007B 


K££JI(3tl) ' 'Select < reagent file to be printed* 


OOAO 


007B 


REKUIM.Ol ■ 'Eiif 


0DB3 


0073 


nBaU(4,l) « %eturo to the win ■eaii' 


0D07 


0078 




0DD7 


007B 


COLOS 9,0:05 


ODEA 


0078 


LOWTE 2J,1 


0DF7 


0078 


FCit n « 1 TO 80 


ODFE 


0078 


PSIKT 'P*; 


OEOB 


007B 


HEH n 


OEIB 


0078 




0E16 


C07B 


FOR rSKSl « 0 TO 4 


0E21 


0078 


EGSU8 nEsy.yr 


0EZ7 


0078 


HEIT KEKUI 


OEI? 


0078 




0E37 


0076 


605UB DISP.OIA 


CE3B 


0078 


IF FUSI ) 0 TKDI CQOJo 5HDV.ERR0R 


OEU 


0078 


nxai » 4 


0E55 


0078 


C3SUB 5E)iU.CH 


0E5B 


007H 




0E5B 


0073 


RETUKX 


0E5F 


0078 




OESF 


O078 




0E6I 


0073 




OE&A 


007B 


nacn « ke»ii OiFn 


on& 


0073 


63SU3 MKS.CI 


one 


0073 


RETUX 


OESO 


0078 




OEBO 


007S 


KEKU.OTi 


0E8S 


0078 


LOCATE 22,lRDrJliUUlB 


0E9C 


007B 


CClOJt 0,7 


CEAB 


0078 


PRIKT RtWJftH£VJl,0)} 


0EC4 


0078 


LOCATE 25,40-lD(!rEXU$L»CLNUI,n)/l 


OEFA 


0078 


COLOR 7.0 


oro6 


0078 


PRIKT a£WJf(REXUI,n; 


ons 


0078 


RETVRX 


on? 


007B 




0F29 


0078 


BEHU.CFf: 


0F2E 


0078 


LOCATE 22,tnEN'JlilOin8 
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0078 








0078 




F9IKT nESUftREKUlfOl} 


OFiF 


0078 




LOCATE 25, <0-LEN(KtNUt(HLHUI, 1)1/2 


0FA3 


0078 




PRIKT SPACEnLENlHcKUIinEVUl,!)))! 


OFCB 


0078 






OFCC 


0078 






OFCC 


0078 


SKOV.ERKORx 


OFtl 


0078 




OX aACI EQSUB ERl, ER2, ER3, EH4 


on2 


0078 




ERMSE( ' ERRS ♦ * Strike any key..* 


mi 


0080 




LOCATE 2*,40-lENltiiJiRSeJJ/2 


lOM 


0080 




CfilDR 13,0 


1020 


0030 




PRIKT EIU»S6t; 


102S 


0080 




A$ • 


10:7 


ooeo 




WILE A» » " 




0080 




M > IKXEYf 


1050 


0080 




VEKD 


1053 


0060 




GQSUB RESSA&E.DFF 


105? 


OOBO 




RETURN 


1050 


OOBO 






I05D 


0080 


ERl: 




\m 


0080 




ErRf > FEAKAnEt * * Hot Found in the Dirictory* 


1072 


0080 




RETURN 


107& 


0080 






107& 


OOBO 






107B 


0080 




ERRS « *Kei9rnt Nitc \\ too Lonq (15 chtracttrt lai.)* 


10S5 


0060 




RETURN 


1C89 


OOBO 






1099 


0080 


ER3i 




lose 


0080 




En^S = 'Dutctory ts Fall (80 reaqcflts taxJ* 


1098 


OOBO 




RETURN 


109C 


0080 






109C 


0080 


ER4: 




lOAl 


0080 




EP.SI » •Cannot KodHy EELECTd reagent Naie* 


lOAB 


0080 




RETURN 


lOAF 


0060 






I OAF 


0080 


RES5AEE.C11: 


10B4 


0080 




LOCATE 24,38 - LEN(RES£ASES) / 2:C0LQR ll.OtPRlNT KES5A 






6tt; 




lOEF 


0080 




RmiRN 


ion 


0080 






10F3 


0080 


* 




ion 


0080 


RESSASE.CFFl 


lOFB 


0080 




LOCATE 24,liCCLGR 15,0:PR1HT SPACEt(79)| ' 


1121 


OOBO 




RETURN 


1125 


0080 




• 


1125 


0080 


EKD SUB 


112c 


OOBO 






UC9 


0080 







50426 Bytes Available 
45713 Bytes Free 

0 Harning Error (tl 
0 Severe Error (s) 
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0030 


^:06 
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0030 


OCCo 


*RC3aLt - •PATflLE* FiU Kindling for pittir» 


0030 


0004 


* 


0030 


OOOA 


•;U7K5R - H. A. Enevold 


0030 


0004 


• 


0030 


0004 




0030 


0O04 


• 


0030 


0004 


'ficVISlCli - 1.0 02*12-54 NA£ Crtatioo of ioitiU codt 


0030 


0004 


• 


0030 


00C4 


'3YS7EI1 - Tbis codt md only bt compiled by tht BA5CCH 


0030 


0004 


KWILER, 11 -ill not run andtr Iht IKT£SrKETER!l 


0030 


0004 


• 


0030 


0004 


•yisaiPTioa: 


0030 


0004 


This todult illoM file hindling for patterai. Vhto inv 






oktd, it di!^l4Y« 


0030 


0004 


the current cootcnts of the pittKA directory ^n ^ colu 






■ns of 20 entries 


0030 


0004 


eidi. The pittern fchich is corrently selected for prio 






ting is tarkcd by 


0030 


0004 


v\ utirisk to the left of the ptttern out. After the 






directory is listed 


0030 


0004 


tht iser IS presented aith 5 eenu choices. Tht left an 






Q rignc *rro«» «•« 


0030 


0004 


' used to highlight teou itcts iad the eater key is ased 






to invoke action. 


0030 


0004 


The tenu choices aea t::ctr actions are: 


0030 


0004 


• 


0030 


0004 


PELETE - rriott i pattern file frot the directo 


0030 


0034 


COPT - CiOT a pattern tile to a nen pattern n 






ajc, saving the old oattera 


0030 


0004 


REKftKE - C^ance the naie of the pattern vithout 






changing the pattern itself 


0030 


0004 


SELECT - Selct a pattern for printing 


0030 


0004 


tiii ntiurn lo ine lain leou 


0030 


0004 


• 


0030 


0004 


'DATA OICTIDKARY 


0030 


0004 


rr?El Vhich tpe of valid key was poshed 


0030 


0004 


KEWl Vhich tena itta is being pointer to (0*41 


0030 


0004 


8IFn Distance to love lOUl at left or right arro 


0030 


0004 


FLASI Error type 0-4 


OO30 


0004 


POIHTERZ Position of PATHAXEI in directory list 


0030 


0004 


PATKUAI Nuabcr of pattern naaes in directory 






list 


0030 


0004 


EIKUHX Kuibcr of elf tents in a pattern file 


0030 


0004 


TUIPI Storage for integers during pattern copy 


0030 


0004 


11 Counttr used during pattern copy 


0030 


0004 


Counter used during pattern copy 


0030 


0004 


AS Kisc. input string 


0030 


0004 


FUtiCTI Printid at bottoa of screen daring proipt fo 






r pattern oait 


0030 


0034 


PATKAHES Pattern na«e currently being vorked on 


0030 


0004 


SELKAftES Pattern nase currently selected for printing 
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009a 
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occ« 

0C04 

0004 
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Ouv6 
000& 

000& 
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fed tfcrieq copy 

KEWKWXS Mm pitttm fl«» lor COPY and REMAHE 
;D\P* Pittern outs an htld here as tht directory 
is being re-«rittiA 

VEVFlLEl Destination filenut osid «hili copyifig patt 

tn data files 

KESSASES A aeisagc prioted at the bottoi of the scree 

& 

KENUtU.ll Array of strings coataining the short aad io 

tg »efta naics 

EKRK5SI Ressage priottd Hhen any error occurs 

Appended to EKRASGt to indicate nature of er 



ERRS 
rcr 

TEHP 
tro data files 
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0030 


0006 


rJB PATTOT.rlLE STATIC 


0047 


0006 






0047 


0006 


60SU6 IKITIAIUE 


0040 


0006 


TYPEl 


« 0 


0054 


0008 






0024 


O0C8 


VHILE TYPEl <) 3 


OOSF 


0008 




AJ • 


006? 


OOOC 




Will At ■ " 


007B 


OOOC 




AS « IKKEY$ 


00S2 


OOOC 




VEKO 


008S 


OOOC 


•left arron 


IF At • CHRttO) ♦ CHRtaS) THEH TTfPn 


OOAA 


OOOC 




IF At » CHRtlOl ♦ CHRtl77J THEN TYPEl 






'right arroK 




OOCF 


OOOC 


IF At • OtRtn3) THEH TYFEl « 3: 






'<cr) to execute selection 


00E9 


OOOC 






O0E9 


oocc 




OK type: 605UB Tl, T2, T3 


OOfB 


OOOC 


VEKO 




OCFC 


OOOC 






OOFC 


OOOC 


nn SUB 


0100 


OOOC 






0100 


OOOC 


RER tPASE 
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0100 


coot 


-IHIIMI SU6-R0UTIXn Fin THIS fUHMi 


0100 


oo:c 






0100 


000c 


Tl: 


'lift ftrroi 


0105 


oooc 




TYPn » 0 


010c 


oocc 




IF hdiuz * 0 THEN \sxm 


0118 


OOCE 




DIFH ■ -I 


OIR 


CGIO 




6CSUB WsV.RDBI 


012B 


0010 




RETUM 


012C 


0010 






012c 


0010 


T2; 


'ricbt irroK 


0131 


0010 




TYPEI « 0 


0138 


m% 




IF HENUl ' 4 TVEN RnURN 


0147 


0010 




DIFH « 1 


OME 


0010 




605UB HEV.REMU 


01S4 


0010 




RtTURN 


oi:b 


0010 






0158 


0010 


H: 


'<cr> (cifnte sclccttd uru tt») 


OlSO 


0010 




LOCATE 25,l;Pfi]NT SPA£Et(79l; 


017A 


0010 




DH HEKUX ♦ 1 G:SUB T3A, HB, HC, 130, T3E 


018F 


0010 




S0SU8 lOU.ON 


dl9S 


0010 




RETUSH 


0199 


0010 






0199 


0010 
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E3SU8 nESSASE. OFF 
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0024 
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0024 
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027S 


002A 


02B& 


002& 


028& 


002& 


0295 


C02& 


02A4 


coa 


02P6 


0023 


0203 


002A 


02ES 


002A 


02ES 


002A 


o:ea 


002A 


02FB 


002A 


02FB 


002A 


02FB 


C02A 


03IC 


oa2E 


0373 


0O?E 


0333 


002E 


03n 


002E 


0333 


OOIE 


0359 


0032 


037V 


003& 


0387 


003i 


039C 


003& 


0393 


003i 


0393 


003A 


0399 


oo:& 


03A3 


0036 


03A9 


0036 
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IBB Ptrsoail Cotauter BftSlC Caicilef V2.00 

03Ar rtturh 

03B3 OiZA 

0JB3 0C3c Ji=B iPfiU 



Rfioent ;ct Frintfr 
Pattcra Filia9 

Offset Data Scurci Line 
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Pitttrn Fihaq 07-09-5i 

OUiit DjtA !^ct List lil Ptriooil Cceputir BASIC Cdiollir V2.00 

cm OCIi nS: *:c;y piturp 

03Be y>34 TTPQ • 0 

03Br 003& IF PAlXUn ■ 80 THEK RJiSl • 3:E0SUB SKmr.ERKuRtRnUKN 

o:n oozi c^sus ett. source 

030 0J3i IP LESlFiT\An£r) « 0 THOt RnURX 

03n v03^ 60SUB SEARCH 

0403 003« IF POIMTDIZ * 0 THEN FUEZ * liBGSUB 5KuV.EKRQR:mUi« 

OA IF 003^ 

04 IF wzA* eosys sn.iTi.HWH 

0425 OeZi IF UMfNEnArtcS) * 0 TKEV RETURN 

0437 0::A if UA^Km^n^S) > is T>IEH FUCI > 2:6CSU3 SHOV. ERROR: R 
ETuRK 

0457 003A 

0457 003A l5£ifiStt » •Copyin? • ♦ PATNAKEf ♦ Mo ' ♦ KEWAKEt ♦ 

* Pletsf irait..* 

047C 003A SC3UB RESSASE.CR 

04B2 003A 

0462 003A *tdd KEVKAKEf li tnd oi dircctcry 

04B2 &63A tlVL "PATDIR.QID' 

* 0489 «3A WKE •PATttlH.RJF- AS •PA721R.CLD' 

0493 OOZA 0?DI •FATOlR^Clu' FDR IKTUT AS II 

04A4 CC3A DPEM *PAT0IR.R;P' FOR OIHPUT AS 12 

04B& 003A 

04B& 003A IXPUT II, PATKUni 

04C8 0035 FATNUni « PATVJh; ♦ I 

04DI OCZA WITE IJiPATWur. 

o4e: oo:a 

04E2 003A FOR 11 » 1 Tw - 1 

04F1 CC3C IKPUT 

0503 OO40 FfjKT ir.TtKP} 

0513 OO40 «En U 

0525 0040 PRIKT l2,XEVKAAEt 

0535 0040 

0535 0040 ClCSt II:aC£= 12 

0543 0040 

0543 0040 ^criiti co»y of pattern data filt 

0543 OO40 FILES ^ RI6HTSiSTRr(P01NT£RI1 ,l£H(5TRt(PDIHTERI))-n ♦ 
•PAT.RJP* 

05i7 0040 nmill » RI6HTf(5TRMPATKUia),L£HtSTRtlPATVU«l))-l) ♦ 
•PAT.RJP* 

0SB3 0044 

058B 0044 OPO FILES FOR IKPUT AS II 

059C 0044 CPEX KTdriLES FOR OUTPUT AS 12 

05AE 0044 

osfiE oo<4 UPUT luar-m 

05CO 004& ^^Ti l2,ELKm 

0501 094& 

0501 004^ FCR II. « 1 TO 4 

0506 004& 1K7UT IIJEHP 

05ER OC^fl «nE I2JEJ? 

OSFA 004A KEIT II 

060A 004A 

O&OA 004A FOR II > 1 TO aiAJKl 
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■'^ ri 

9 



Kiigtct fit P'^iMtr 
Pittira Fin no 

Offftt UtJ ^sjrct Lir.t 



0B46 CC;2 



?A6E f 
07-09-fl6 

lE.n Pfrsonil Caaoutir Bf^IC CoioiUr V2.00 



Recent 3it Printer 
Ptttcrn Filing 

OHstt Data Sourct Lint 



0B4& 

oe;B 

08S2 
0B5C 
08&2 
0874 
0887 
068D 
0893 
0897 
0897 
089C 
08A2 
OBEE 
Ceoc 

0BD5 
OBDB 
0806 

08DB 
08ED 

0911 
0911 
0921 
0931 
0931 
0938 
093E 
0942 
0942 
0947 
0948 
094B 



00S2 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 

0052 
0052 
0052 

0052 
0052 

0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 
0052 



PftEE 10 
07^09-86 
15:11:4^ 

IBA Personal Coaputtr BASIC Coioilcr V2.00 



no: 



T3&A: 



'siltct pattern for printing 
TTPEl « 0 
mtU « 'Select' 

BOSUB BET. SOURCE 

IF LEMlPATHAJlEf) « 0 THEN RETURK 
IF PATKAKEf • SEUlAflES THEK RETURK 
eOSUB T30A 
605UB DISP.OIR 
RETURN 



ED5U3 SEARCH 

IF POINTER! « 0 THEN FIABI « l:E05Ufi SHCU. ERROR: RETURH 
nESSASEI s 'Selecting ' * PATKANEI 4 • Please Vait, 
SQSUB AESSI^SE.ON 

'change entrys in pattern default file PATOEFtR 



OPEN 'PATOEF.RJP' FOR OUT?UT AS II 
FILE) ' Rl6HTl(STRI{P01NTrRX),L£N(5TRI(P0lNT£Rl))-l) ♦ 
•PAT.RJP* 

PRINT II.FILEI 
PRINT •l,PATKAftEt 

aosE tl 

E05US RESs;eE.c?r 

RETURN 

T3E: 'exit patters filing 
RETURN 

REn tPABE 



eADOnQINAL 

L 
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f 



Rtt;nl Jtl Prioltf 11 
PilttfD filte? 07-M-ai 

OHift D*U Sflurci Uct IW PtfMBil Cotpottr BASIC CowiUr V2.00 



0941 


0057 


ScAKCH: 




0950 


C052 




POIKTEn « 0 


0957 


00:2 




FEM •PATOIR.RJP' FOR IKPUT AS 11 


09&8 


0C53 




IKPUT •l,PAniWI:' jil tttttbir ol p«tt«rfl5 to dirtc 






Ion 




097A 


0«2 




IF PATKina « 0 T)0 CLOSE IhRniAH 


0990 


00S2 




TC!Pt ■ •• 


099A 


0052 




raiU (POIHTERI < PATHWIJ AM (PATKMEI <> TEHPSJ 


09C2 


0052 




LIKE IKPUT 11,1071 


09Cf 


0052 




PQINTERI * POIKTERI ♦ 1 


0908 


0052 




KEVD 


09D6 


0052 




IF PATHA«EJ 0 TEMPI TMEK POIHTERI « 0 


09FI 


0052 




aOSE li 


09FB 


0052 




RETUKN 


09rC 


0052 






09FC 


0052 


SCT.SirJSCE: 


OAOl 


0052 




LOCATE 25,1: COLOR 15,0:PR1HT 'Enter Pitltm Hiit to •FU 










0103 


0052 




LIVE IKPUT:", PATHAn£$ 


0A41 


0052 




LOCATE 25.1:FR1«T 5PACE»(79)} 


0A5E 


0052 




RETUKM 


0A62 


0052 






0A&2 


0052 




0Ai7 


0052 




LOCATE 25,1:C3L0R 15,0:PRI!IT "Entfr Ren Pittirn Kati '5 


OABD 


0052 




LIKE IKPUT; ",J£-VKAHEf 


0A96 


0052 




LOCATE 25, I: PRIST 5?ACEIt79); 


0AB8 


0052 




KETUiO* ■ 


0A6C 


0052 






OABC 


0052 


D1S?.DIR: 'dis9U« dirtctcry in 4 coiutnSi 20 roMS 


OACl 


0052 




'rrao ct'jult pJtttrn nate into 5r;.KA5cS 


OACt 


0052 




0P£« 'PATSEF,?:?* fOR IKFCT A5 11 


0Ao2 


0952 




IMFUT ll,SaKAK£S: 'disctro data Hit nue 


0AE4 


0052 




INPUT ll.SElliAPil 


OAF& 


0052 




aCSE 11 


OAfT^ 


0052 






OAFO 


MS2 




C?£3I •PATOIR.s:?' FQK DiPUT AS 11 


OBOE 


0052 




IKFUT tlfPATruU:' read nuftbir of patterns 


OB20 


0052 






0B20 


0052 




KESSASEI - 'Reading Pallern Directory Please Hait' 


0B7A 


0052 




E05UB HESS ABE. OX 


0B30 


0052 




FLASI * 0 


0B37 


0052 




TEWl « PATHUKl - I: IF PATKUKl ( 80 THEH TEKPI « PATKUI 


0BS2 


0052 


X 


FOR 11 « 0 TO TEHPI 


OBSE 


0054 




LOCATE ill m 20)*l,tIHT(II/20)t20)*l 


0691 


0054 




PR2XT SPACEKIB); 


OBAl 


0054 




KEH II 


0B83 


0054 






0BB3 


0054 




FDR U » 0 TO PATKUni - I 


OHCl 


005i 




IHPUT ll,PATNAnEI 


0BD3 


005& 




LOCATE tU nOO 20)n,UHTlll/20)»20U3 


0C06 


0056 




FRIHT PATHAftEl* 


0C13 


005S 




IF PATKAnEf = SELKABEi TKEH LOCATE (II «00 201 



1,(IHT(I1/20)«20)M!PRIHT •»•; 
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"' " c r. n - • o 

^ ' • ) r, 

nf loeot I friniir ' ' " ' " PAK^ i2 

Pttttrc FiliA9 07-O9-a& 

tStlitU 

Offset Sita Tourci uint Un Prrioail Couutfr BASIC Cocpilir V2.00 



0U2 




SETT U 


0C77 




ClO^ 11 


OCTt 


00 


6aSUB h£SS;GE.DFr 


0CS4 


AA f 




OCSfi 






OZal 




:kitialize: 


OCBD 






OCSE 


A 4 ^9 

O-OTE 


tAfA At BA 

RDtOt(0,01 « Dflctt 


0CA6 


0C7E 


KE>iwt(0,ll • *Retovt 4 pattern file froi the dtrtctory' 


OCCl 


OCTc 


HEKUfd.Ol « Copy' 


one 


COTE 


}£HUI(l,n * 'Copy a pittirn fill to a nen pattern ouc 




007E 


M^lRtAfi Aft ^ ftA^^K.^B 

REKUt(2fO) « *R(ftait 


0D12 


007fe 


Rcjiul(2,U > Rcnasi a pattern tilt m the directory' 


0D30 


007t 


KiHUS{3,0t • Select . 


A4^ J 


A AY^ 

007E 


RENUt(3,n * Select a pattern tile to be printed' 


00&7 


A A^^ 

007E 


IIEKU1(4,01 » •Exit* 


A A A A 

0D82 


007E 


KcKUI(4|l) s ^Return to the tain lefla* 




007E 




009E 


007E 


COLOR 9,0:CLS 


ODBl 


007t 


LOCATE 21,1 


CD6£ 


007E 


FOR II s 1 TO 60 


ODCS 


007E 


PRIKT 'J'; 


OS02 


007E 


KEIT U 


ODEx 


007E 




00E2 


007E 


FOR REKUI » 0 TO 4 . 


ODEB 


007E 


6uSUB P-HU.OFf 


CDEE 


007E 


NEIT nEKUI 


ODFE 


007E 




OOFE 


007E 


EOrJB OIS?.OIR 


0E04 


007E 


IF FLAG! > 0 Tr-K BOSIJB SKui.ERRQR 


0E15 


007E 


r.£m * 4 


OEIC. 


007E 


C0SU6 I1ENU.0X 


0E22 


007E 




0E22 


007E 


RETURI 


0E2& 


007E 




0E2& . 


007E 


KEV.KENUt 


0E2B 


007E 


60SUB REk'U.CFF 


GDI 


007E 


KKUI « REKUI ♦ DIFFI 


oe:9 


007E 


SOSUB KEKU.ON 


0E43 


W7E 


RETURN 


OE47 


007E 


• 


0£<7 


007E 


XEKU.OXx 


0E4C 


007E 


lOCnTE 22,(nEXUI»101^16 


0E&3 


007E 


COLOR 0,7 


OEoF 


C07E 


FRIKT n£KUttR£KUI,0); 


OEB0 


007E 


LOCATE 25, 40-LE)f(KD{UMHENUZ, 1)1/2 


OECl 


007E 


CaOR 7,0 


OECfi 


007E 


PRIKT REHUS[KEKU1,11; 


OEEC 


007E 


RETURN 


OEFO 


C07E 




OEFO 


007E 


••LSU^OFF: 


CEF5 


007E 


LOCATE 22, (BEKUinOinB 


OfOC 


007E 


CQLOf; 14,0 
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RiiQint at Priftttr PftSE 15 

Pjttrro Filing 07-O9-6i 

tStlU4& 

Offnt Dit» Soorct Linr IM Pfrjonal Cawolir BASIC CoipiUr V2.00 

OFIB OOTE PRIKT llDfJUHEWI,OJ; 

007E UJCATt :5,40-l£K(K£)(UIIRtKUl,l)l/2 

007E PR:HT 5?ACIfaiMtn£SUJtn£JHII,n))i 

0F8F 007E RTTUM 

0F93 007E 

0F93 007c SHCV.EKACRt 

0F9B 007E OK FLABl EOSUB ERl, 02, ER3, Dl* 

0FA9 007£ ERKnSei » ERRt ♦ • Slrikt wr key*,* 

0FB9 OOBi tOCAU :4,4C-UH(rtRJlS6n/2 

CFDB OOB^ COLOR S3t0 

OFH 0086' PRIKT OWSSJ; 

0Fr4 00B6 M 

OFfE OOBi WIU M 

lOOD 00fl& W a IKKEYI 

ton V£HO 

101 A C06& 605UB RESSftSE.OFF 

1020 OOBi RCTURX 

1024 0086 

1024 008& Qtl: 

1029 0086 ERR* ■ PftTKAHEf ♦ • Hot Found in the Directory* 
1039 00B& RETURH 

1030 0086 

1030 00B6 ER2: 

1042 0086 ERR* » •P*tltrn lUic is too Laog (15 charicttrs mx.)* 

104C 0086 RETURK 

lOSO 0086 

10^0 0086 ER3: 

I05S 0086 ERRt = 'Oireclory i* fall (80 patterni oaxJ* 

105F 0036 RHURH 

1063 0086 

1063 0066 ER4: 

1068 0086 ERR$ » 'Caanot notfil? EELECTd pallirn Nan' 

1072 0086 RETURN 

1076 0086 

1076 0086 P.E55fV5E.CXs 

107B 0086 LOCATE 24,33 - LLHlR£S=;5el) / 2:CDLCR ll,0:PRIHT KSSA 

GEI} 

10B6 0086 RETURJt 

lOBA 0086 

lOBA 00B6 

106A 0086 KESShSLOFTi 

lOBF 00B6 UCATE 24,1:C0LCR 15,0:PRIHT 5PftC£t(79>j 

lOEB 0086 RCTURX 
lOEC 00B6 

lOEC 0086 EXO SUB 
10F3 0086 
1683 0086 

S0426 Bytes Available 
45670 Bytes Free 

0 Varning Error (s) 
0 Severe Error U) 
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rf«5int Jit Printtr . - . mi \ - 

ruin Lint Codt 07-W-«& 

I5:27i0< 

CKfsit Dati Soorci lim firton<l Cotostir Zt^\Z Coipiltr V2.00 

C030 OOOi RCT iTlTUrStiginl Jit Printer* iSUBTITU; 'lUiri Llfti Codt* 
0030 COOi 

0030 OOOi -nOOULE - 
0030 mh 

003C 0004 'AUTHOR - X. A. EnevoU 
0030 O00& 

0030 coot •COPYRIBKT (CJ l^Bi W30T7 LMORATORIES 
0030 OOOb 

0030 0006 •REVISIO)! - l.i RAE Add not« «d r»ti« rfPEl rtsttin 

9 

0030 000& * ~ 1*0 02*U-64 HAE CriUion Df initial codt 

0030 0006 

0030 0006 'STSTEK - This codi »ft only be coiplltd by the BA5CCI1 
0030 0006 * COnPIlER, it will ftot run onder the IKTtRPRETQt!! 

0030 0006 

0030 0006 'BEBCKlPTtON 

0030 0006 ' Thii it the tiio controlling aodulc ler the Rttgent Jet 

Printer, 

0030 0006 ' It displiys a eeou in table leri that aUoHs 6 function 

s to be 

0030 0006. * selected. PATTcRK DEFIRITION alloMS the user to define 
patterns 

0030 00C6 ' to be printed. PATTtAH F1LIM6 lets the aser delete, co 

py, renaie 

0030 0006 * and select patterns for printiog. REA6EKT CALIBRATION 

periits setting 

0030 0006 ' of operation paraieitrs (or different reagents. REAScH 

T FIUKB is 

0030 0006 * the sate as pattern tiling. PRINTIKS PRIKT prints the 

selected 

0030 0006 * pattiro «ith the selected reagent. SYSTDt ElIT TO DOS 

ifids the SKSion. 

0030 0006 ' Using op and dosn arro« keys let the user aove through 

the aenu and 

0030 0006 * the Enter <cr> key activates the selection. 

0030 0006 

0030 0006 'DATA DICTIDXART 

0030 0006 ' WQSl This valtte represents the current tenu 

iteo (0-5) 

0030 0006 ' KEKUt(5,l) String array for displaying tenu iteas. 

6 roMS by 2 coluus 

0030 0006 ' corresponds to a ecnu itii (0- 

5) 

0030 0006 ' coluin is short acou naii in high 

lighted area 

0030 0006 ' Second colunn is long description displ 

ayed at eenu bottoi 

0030 0006 • M0n(5J TWs array stores to ron in hhich the s 

hort aeno naac Mill be displayed 
0030 0006 • OlFFl " "^'^ chanje HEHUI in r 

esponse to arroH keys 
0030 0006 ' TYPEl This value is set based on Hhich valid 

key is pressed 

0030 0006 • 0 ' Ko valid key. i « Up Arrow. 2*0 
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Ridotnt id Printir 
P.iin Une Codi 

Offset Diti Sourct Line 



mi 2 

07-O9-8& 
15::7:04 

IBH Ptrssnal Couatcr 8ASIC Cotoiltr V2.00 



TO 



IS 



20 



25 



0030 0006 



0030 
0030 

0030 
0030 

0030 
0030 



0006 
0006 

0006 
0006 

0006 
0006 



OKA Arroa. 3 * <cr>. 

Tti7I Used to store hcKUZ vhill screen is ref 

rtchttf 

AS Used to store tingle input keY^trokcs 

CI Used to store sptciil griphics chiracte 
rs used in dra^iog the lenu tiblc 

II Counter ased to refresh display 

KX Koa in ibich special graphics character 
is dispUycd 

n 

ter is displayed 



Col USA in tfhicb special graphics charic 



Reagent »sl frinter 
Rain Line Code 

Offset Data Soorrc Liae 



PAGE 3 
07-09-86 
15:27:04 

loA Personal Coiouter BASIC Ccapiler V2.00 





0030 


0C-0& 






003C 


oc:6 


*r.aiB-URe co^e for RJP Seageni Jet Printer 




0030 


00C6 






0030 


0006 


r;::?(.uyii.ci)C£: 


30 


0030 


CC06 






0030 


OOCq 


BZm l»niALIZ£ 




004B 


0006 




« 


004B 


0OC6 


mil TTfPEl <> 3 




0056 


OOOS 




35 


0056 


&d:8 


TTPn = 0 




005D 


0008 


AJ « 




0067 


OOCC 


WIL£ AS « " 




0076 


oocc 


A$ - IKKDI 




0060 


OOOC 


VEXO 




0083 


oocc 






0083 


occc 


IF A$ » CHRItO) ♦ CHR$I72) THDi HPH 








op «rro« 




00A8 


OOCC 


If A$ > CHRS(0} .« CHRSCBO) THEN TYPEI 








dcHO arrow 


45 


00C9 


oooc 


IF Af • CHRf(l31 THEN TYPEl « 3:' 








(cr) exente cootaod 




oon 


oooc 






con 


oooc 


CM TTPn B03UB Tl, T2, T3 




00F6 


oooc 




50 


00F6 


oooc 


VEXD 




OOFA 


oooc 






OOFA 


oooc 


as 




0101 


oooc 


CCLOS 7,0,0 




0112 


oocc 


5Y5TEH 


55 


0116 


oooc 






0116 


ooc: 


KEH l?AB£ 



1:' 
2;' 
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?^39<^* Printtr 
lUin Line Codf 

OHset Dill Sourci Lint 



07-^9 -flfc 
15:27:04 

I»n PcrscAil Cotputtr BASIC Coesiltr V2.00 



OIU 
OllB 

oi:a 

0131 
0177 
013B 
013B 
0140 
014F 
015& 

one 

DUO 
OUO 
Oio9 
017C 

015E 
01A5 
OlA? 
01A9 
OIAl 
018A 
OICO 
01C4 
01C4 
01C9 
01E5 
OlFl 
01F5 
01F5 
OlFA 

o:o& 

OIOA 
020A 
020F 
0226 
0257 
023B 
023B 
0240 
024C 
0250 
0250 
0255 
0259 
0259 



oooc 
ococ 
oooc 

OOOE 
0010 
0010 
COlO 
0010 
COlO 
0010 
0010 
0010 
0010 
0010 
0010 
0010 

0010 

0010 

0010 

0010 

0010 

6010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 

0010 



'iif«4i«i Si;3-R:iniX£5 FOi^ MU PR06RAR 
Tl: 'up uro» 

IF nOfUl « 0 THEK RETUWi 

DIFH * -1 

EtlSlJB KEV.REKU 

mm 



'dDMA irrD> 

IF RENUl ' S TKcH RETUfUl 
DIFFl • 1 
€05UB NEV.HEMJ 
RCTUWt 



DM KENUI « 1 EOSUo HI, 132, 133, T34, T3S, T3& 

IF KEKUI < 5 THEN Vtni = Oi* reset TYPn so proqrii 

■on't end 

SCREEN 0,0,3,3 



ni: 



T32: 



RETURN 

'pittcrn difittilioD 
CAU PATEKTHT: 
SOSUB REFi^ESH 
RETURN 

'pattern Ulin; 
SCREEN 0,0,0,0:CLS 

CALL p;nEW.F:u: 

RETURN 



*in udule PATENT 



'in lodule PATFllE 



'rei^cnt cahbriticn 

CAU REA3tKT.C;:;Ea;;TE:'in lodule REACAl 
RETURN 



n4: 



'rtiqent lilin^ itaa 
SCREEN 0,0,0,0:CIS 
CALL REA5ENT.F1LE: 
RHURN 

'priat pittero 
CALL PATPRIHT: 
RITURN 



in aoduU REAFIU 



'in Mdulc PATPRINT 



T36» 'eiit systii, doa*l reset TTPEI 
RETURN 

REN SPASE 
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^tactn: Jtt Frintir PA^E 3 

Hiin Lint toit 

lS:27s04 

OffSK Cita Sc^ircc Unr IBS Pcrsontl Ccaputer B^SIC Ccuittr V2.00 



023? 


oo:c 




025E 


0010 




0264 


0010 


RDsn « oui ♦ Dim 


0270 


COlO 




027& 


00)0 




027A 


0010 




027A 


0010 




027r 


0010 


cfia?ci-iKn 


02Si 


0010 




02BB 


0010 




0283 


COlO 


Sin ic^ts) 


02BC 


OOlC 


mmm * 4 


029E 


COIC 


mnii) > h 


02fil 


COIC 


mmi) « 10 


02C4 


OOlC 


msciiZ) « 12 


02D7 


OOlC 


ip.aa(4i « u 


02EA 


OOlC 


msmz) > 20 


02FD 


OOlC 




02FD 


OOlC 


DIA fEHUt(3,n 


02FE 


00<C 


KESTCKE nEKU. STRING. DATA 


030S 


0&4C 


rC? 11 « 0 TO 5 


030B 


004C 


READ KENUt (11,01 ,n£NU«ai,l) 


cm 


004E 


KIT n 


034B 


004E 


r 


034B 


OWE 


set initial values loto variables 


034B 


004E 


TT?cl » 0 


03n 


004t 


REVJl - 0 


0339 


004E 




0339 




(cfKESH: 'rc^rav screen a»tf r.cihotit current tenu selection 

* 


03SE 


004E 




03SE 


0C4E 


E:?££H 0,0,O,0:C:£:Crv:H 7,0,0 


03BB 


004E 


LCCiTE 10,32: rEIKT •loifling Renu • 


03A5 


004E 


S:?ErK 0,0,3,0:CL5 


03C2 


004E 




03C2 


034E 




03C2 


004E 


COLDK 13,0 


03CE 


004E 


LOCATE l.3i 


03DB 


004E 


PR1«T •REAHST JH PRUTER'; 


03E3 


004E 


a^cR 10,0 


03F4 


004E 


LOCATE 5,2fc 


0401 


004E 


WIKT •PATTtRX- 


OAOE 


D04E 


LOCATE. 11,26 


041B 


oo;e 


PRIXT •REAGEKT- 


0478 


0C4£ 


lOCATE U.2fi 


0435 


004E 


PXIBT TRIiniKS' 


0442 


004E 


LOCATE 20,27 


044F 


004E 


PRIHT •STSTE)!* 


045C 


004E 




043C 


mi 


in* the teau table in special graphics characters 


04^C 


004E 


COLOR 9,0 


0U6 


004E 


FGR 11 = IB TO 


04&F 


004E 


LOCATE 2. ;i: PRIST "O"; 


04BA 


004E 


LOCATE B,ll:fRINT 


04AS 


0C4E 


LOCATE 14,1I:PRIHT *J)*; 
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n o 
n n 



r.fi9Ml ;tl trintir l*ftoT 4 

nam Lint Code 07-09-B& 

15:27:0< 

OHttt Dati Sc;irct lini IBn Prrtonal Cotpattr BASIC Coipiltr V2.00 

04C0 OOU LOCATE IB.lIiPRIWT 'P'; 

0«B OOAE lOWTE 2,I1:PRIHT 

0AF6 OMc LOCATE 24,U:Pftm 'OM 

0511 004E KETI U 

052* Mt£ FW IX » 3 TO 23 

052B OOAE LOCATE 1I,:7:PRI«T 'V; 

0544 004E LOCATE I1,M:PRIHT Ti 

05M 004c KEU II 

0571 004E RESTORE TABLE 
0578 004E FOR U « I TO 12 
057r OME KEAB RX,C1,CS 

0572 0036 LOCATE Rl,CI:F8m C«; 
05AE 0054 «EIT 11 

05BE 005& 

055E 0056 * frinl Ihi instructioin 

05BE 0054 COLOR 7,0 

05CA 0054 LOCATE 23, 

C5D7 005& KIXT 'Ust or to highlight lena itiis. Use to 
actitale selection.*; 

0SE4 005& 

05E4 005& COLOR 15,0 



I 



060A 0054 LOCATE 25,15:PRW 

0624 0054 LOCATE 25,47:PRIKT 'PT'j 

043E 0054 

0&3E 005i * dispUy the 6 eenu choices 

06:E 0054 TEKPI * HEHUl 

0645 0053 FOR REHUl * 0 TO 5 

064B 0058 605U3 SLKU.CFF 

0631 005B UEIT KENUl 

0661 W53 REHUl « TEWl 

066B 005B 

066B ^958 ' highlight the corrtnUy active eenn itei 

066B 0058 60SUB HcKU.ON 

066r 9058 

066E 0058 5CSEEK 0,0,3,3 

06B5 0058 KETURH 

0689 0058 

068? 0058 KEyU.DK: 'highlight the lenu RLVUl and display its long descript 
ioa 

068E 0058 COLOR 0,7 

0691 0058 LOCATE RR01£I(nE)afI},52-L£MtnENltt(nENUI,0) 1/2 

06DA 0058 PRIVT HEMUMREHUI.O); 

06F& 0C53 COLOR 7,0 

0704 0058 LOCATE 23,40.S-LE)(tXEnJS(flEHia,l)W2 

0738 0058 FHIHT KtKUKREKUl.ll; 

0757 005B RETURN 

075B C0S8 

075B 0058 RENU<OrFi *an-highHght aena KEMUI and trast loog description 

0760 0053 COLOR 14,0 

076C C053 LCCATt BSO'JllhESUl) ,5:-iLHlMEim (H£HU1,0) J /2 

07 AC 0058 PRiN^ ncKUSlRt)rjl,0); 

07CA 0058 COLOR 7,0 • 

07D6 CC5B LOCATE :3,40.5-L£KinOtUt{r.EKUX,n )/2 
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Riicenl Jel Printer P^at 7 

Rain U« Codf 07-09-3i 

15:27:04 

Offset B*la Ssorce Line IBH Personal Cotputir BftSlC Coipiler V2.00 

PRINT S?ACEt(lIHinEHUIlKEHUI,l)l)i 

REH fPASE 



050A COS 

Oo2f COSS 

0833 00S8 

0833 00!;B 
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O r. 
O 

n 

1^ 



237 



.1 



O 



r- 





Riigtnt 


;tt Printer PAfiE 6 






^ ^ ^ ^ 


0/H)9-i6 








lS:27i04 


6 


CUfft 




Source line IBA Personal Coipater BftSlc CoiDiler V2,00 




0573 


coa 


*«Mif«l* DATA FiaOS USlD BY T>I£ HAIN P10EPJ;A «Mit««» 




0833 


0353 




JO 


0333 


0053 


P^DuI.STaIKS.OATA: 'first efttry is icntt M9, secDfio is lo 






BQ rftccription 




0838 


dos 






0B38 


0053 


DATA *DErIKiTIDH', *Crtitc And Hodifr Pattens* 




0B3A 




OATA 'FILIK5*, "Delete, Copy, Reniie, and Select Pi 








tlenis' 


IS 


083C 


CCS3 


DATA *CALlBR;TlOU\'C4librae and Hodify Reaaen Prodi 




0B3C 


C<S3 


DATA *FIL!Kfi*, "Delete, Copy, Renaw, and Select Re 








i^cAts* 




0B40 




DATA *PRIMT*, "Print Selected Pattern aith Stlecte 


2v 






d Keagent* 




0842 


003 


DATA 'EXIT TO DOS*, 'Leave Pro^rae and Return to DOS* 




0B44 


005B 






0644 


0058 


TA£L£: 'first entry it ro«, second is coUtn, third is spicial 








9raphics character 


25 


0849 


oosa 






0849 


OOSB 


DATA 2,17,*7' 




034B 


005B 


DATA 2,64,-?- 




084D 


0058 


DATA 8,17,*C' 




0B4F 


0058 


DATA B,U,T 


30 


0651 


0058 


DATA 14,W,"C" 




0853 


0053 


DATA 14,64, 




082S 


OOSB 


DATA IB,I7,':* 




0B57 


0058 


DATA 18.64, 'r 




0B59 


0056 


DATA 22.17,"C' 


35 


0856 


O05S 


DATA 22,i4.N' 




0850 


0058 


DATA 24,17,T 




085F 


005E 


DATA :4,64,'r 




08&1 


0058 






m\ 


005S 


CXD 


40 


08^5 


0058 






0B42 


OOSB 





50436 Bytes ^^vaiWble 
47680 I fits Free 

45 

0 lUrniQ9 ErrorUl 
0 Severe Error (s) 



50 Claims 



1. A dispensing system for use in diagnostic instruments for precise metering of a desired diagnostic 
fluid, the system comprising: 
55 a jetting chamber defining a volume and comprising a first and second aperture, the first aperture adapted 
to receive diagnostic fluid, the second aperture defining an orifice: 

a transducer in mechanical communication with the jetting chamber, the transducer operative to alternately 
expand and de-expand the volume of the jetting chamber in response to a selected electrical pulse and 
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thereby cause the JetUng chamber to omit a substantiany unilomi.y^sized d.optet of diij.-«stic Huid through 

me^J^tor Jweratino a nunU)er ot electrical pulses sutfident to cause a desired quantity of the diagnostc 
fluid to be dispensed. 

5 2. The Invention of Claim 1 wherein the system further composes: ^ „ 

at least one additional jetfing chamber in fluid communication with an additional diagnostic flu.d: 
at least one additional transducer in mechanical communication with the additional jetting chamber; 
at least one additional means for applying an electrical pulse to the additional transducer; 
means for generating respective numbers of electrical poises suHiaent to cause prease quantrt.es of the 

JO diagnostic fluids to be dispensed in a desired volumetnc ratio: and 
a receptacle adapted for and positioned to receive the fluids. 

3 The invention of Oaim 1 wherein the system further composes: 

means for directing at least one of (1) the receptacle and (2) the emttted diagnostic fluid and the emrtted 
addi-tional diagnostic fluid such that desired quantities of the fluids are dispensed into the receptacle «i a 

IS oredefined dispensing order. j j. - 4^. 

4 The invention of Claim 1 wherein one of the diagnostic fluids comprises serum and wherein the 
jetting chambers cooperate such that the other diagnostic fluid Is emitted in a manner to contact and m« 

^^sl^T^elnvention of Claim 1 wherein the jetting chamber comprises a cyfindrical tube and wherein the 
20 transducer is mounted concentrically about the cylindrical tube. 

6 The Invention of Claim 1 wherein the jetting chamber is conically shaped. 

•7. The invention of Claim 1 wherein the jetting chamber comprises at least one chamber wall which is 

intearally formed with the transducer. . . ^ 

8 The invention of Claim 1 wherein the transducer is one of (1) a piezc^lectnc transducen (2) a 
25 maqneto-strictive transducer. (3) an electro-strictive transducer; and (4) an electromechanical transducer. 

9 The invention of Daim 1 wherein the jetting chamber is conically shaped: and wherein the transducer 
is disc shaped and forms the base of the conically shaped jetting chamber. 

10 The invention of Claim 1 wherein the orifice comprises an end face and the end face is coated wrth 

a hydrophobic polymer- . ^ ^ ^ ^ * 

11 The invention of Claim 1 wherein the transducer is cylindncalJy shaped and compnses a first 
electrode located on the inner wall of the cyfinder and wraps around one end of the cylinder and wherein a 
second electrode is located substantially on the outer wall of the cylinder and is electrically isolated from 

the first electrode. ^ . . - , , , ^ ^ m 

12. The invention of Claim 1 wherein the means for generating produces an electncal pulse ol selected 

35 rise and tali time constants and of selected duration, voltage and polarity. 

13. The invention of Claim 1 wherein the means for generating the electrical pulse compnses means for 
scaling the voltage of the pulse in response to a selectable digital value. 

14. The invention of Claim 1 wherein the apparatus further comprises means for directing the emitted 

diagnostic fluid along a desired path. 
4Q 15. A method of dispensing precise quantities of diagnostic fluids compnsing the steps of: 

(a) generating an electrical pulse of predefined characteristics: 

(b) reducing the volume of a chamber containing the diagnostic fliid by electro-mechanical means in 
response to the electrical pulse such that a droplet of fluid of known volume is propelled tnrougn an onficc 

in the chamber; and ^ ^ ^ 

45 (c) repeating steps <a) and (b) until a desired quantity of the diagnostic fluid has been dispensed 
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